#-----------Explications------------------------
#!/usr/bin/perl -w

#On affiche "Saisir une nouvelle ligne : ":
print "Saisir une nouvelle ligne : ";

#Tant qu'on associe des lignes à l'entrée clavier, on exécute les instructions:
while (<>) {

#On concatène à la suite de la variable $texte le contenu de la variable $_
#La variable $_ contient la dernière ligne lue.
 $texte .= $_;
}

#On affiche "Vous avez saisi le texte" suivi d'un retour à la ligne
#on affiche le contenu de la variable texte suivi d'un retour à la ligne
print "Vous avez saisi le texte \n $texte \n";

#---------------------------------------------