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