# Comptage des lignes
# Affichez la lettre entière de votre programme précédent avec un compteur de lignes au début de la ligne.

#!usr/local/bin/perl
print "Ecrivez votre lettre : \n";
$compteur=0;
while ($lettre=<STDIN>) { 
if ($lettre=~/STOP/){
print $sortie;
exit;
}
else {
$compteur=$compteur+1; #à chaque ligne on ajoute 1 au compteur
$sortie=$sortie."$compteur. ".$lettre; #on concatène le numéro du compteur et la ligne qui vient d'être taper avec ce que la variable contient déjà
}

}