#!/usr/bin/perl 
print "Veuillez Saisir votre texte, puis appuyez sur ctrl-d deux fois pour avoir le résultat :\n ";
while ($ligne = <>) {
 $texte .= $ligne;
}
print "\nVous avez saisi le texte \n $texte \n";