#!/usr/bin/perl -w
#demander à l'utilisateur de Taper une ligne
print "Tapez une nouvelle ligne : ";
#Tant qu'il y aura un flux en entrée standart
while (<>) {
#mettre après le contenu de texte , le contenu de $_
 $texte .= $_;
#fin de boucle
}
#écrire la synthèse du texte tapé par l'utilisateur
print "Vous avez tapé le texte \n $texte \n";
