# Machine à Ecrire Perl(2)

my $lettre=""; 	# initialisation de la variable $lettre quii va contenir tout ce que l'utilisateur tape au clavier
while ($a=<STDIN>) 	# tant que l'utilisateur écrit : 
	{
	#print "Vous avez tapé : ",$a,"\n";	# impression de ce que l'utilisteur écrit
	chomp($a);	# on supprime le dernier saut de ligne
	
	if ($a eq "STOP") { 	# si l'utilisateur tape "STOP"
	   print " \n Lettre complète : \n",$lettre;	# on imprime la lettre complète
	   goto FIN;	# et on va directement au label "FIN:" situé à un endroit dans le programme
	   }	# fin de if
	else {	# sinon :
       $lettre.=$a."\n";	# on concatène ce que l'utilisateur a écrit dans $a suivi d'un saut de ligne
   }	# fin de else
}  	#  fin de while
FIN:	# label FIN: qu'on atteint grâce à la fonction "goto"
print "fin\n";	# on imprime que c'est fini