#!/usr/bin/perl -w
print " Veuillez saisir votre lettre. 
Pour vous arreter, tapez 'STOP'.\n ";
while (<>) {
 chomp($_);
 $ligne = $_;
 if ($ligne eq "STOP") { 
	print "Vous avez saisi la lettre suivante\n\n$texte\n";
	exit;
	} # Si on saisit "STOP", ça s'arrête
 else { $texte .=" $_\n"; }
}