#-----------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 ($ligne = <STDIN>) {

#On concatène à la suite de la variable $texte le contenu de la variable $ligne
 $texte .= $ligne;
}

#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";

#---------------------------------------------