#!/usr/bin/perl -w						#on compte les linges du fichier amant.txt
open (IN, "amants.txt");				#on ouvre le fichier en entrée
open (OUT, ">num-lignes.txt");			#on créer et on ouvre le fichier en sortie
$i=1;									#le compeur: commence par donner 1 a la première
	while ($a=<IN>) {					#tant qu'il y a une ligne dans le fichier en entrée exécute la codition
										#condition: à chaque boucle prend la nouvelle valeur de i et ajoute lui 1
		if ($a=~/eau/) {
		print OUT "$i =$a";
		}
	$i++;		
	}
	

close(IN);								#fermeture du fichier en entrée
close(OUT);								#fermeture du fichier en sortie