{filelink=15267#}

#!/usr/local/bin/perl

# Lire l'entrée clavier
print "Taper votre texte, Pour quitter appuyez sur Ctrl-Z:\n"; # ou Ctrl-D selon la plateforme
@lines = ;
#Inverser les caractères
@reverse_lines = reverse @lines;
#Afficher le résultat
print @reverse_lines;