#!/usr/bin/perl -w
#On ouvre en lecture le fichier amants.txt et on le référence sous le nom FICHIERENTREE
open(FICHIERENTREE, "<amants.txt");
#On ouvre en écriture le fichier moteneau.txt et on le référence sous le nom FICHIERSORTIE
#Si le fichier n'existe pas, il est créé
#Si le fichier existe déjà, son contenu est écrasé
open(FICHIERSORTIE, ">moteneau.txt");
#On crée un compteur $compteur et on l'initialise à 1
my $compteur=1;
#Tant qu'on peut associer une ligne du fichier amants.txt à la variable $ligne, on exécute le bloc d'instructions
while (my $ligne=<FICHIERENTREE>) {
	#Si la variable $ligne contient la séquence de caractères "eau", on exécute le bloc d'instructions
	if ($ligne=~/eau/) {
		#On écrit dans le fichier moteneau.txt le numéro de la ligne (Grâce à la valeur de la variable $compteur)
		#On insère une tabulation
		#On insère le contenu de la variable $ligne
		print FICHIERSORTIE $compteur, "\t", $ligne;
		#On incrémente le compteur
		$compteur++;
	}
}
#On ferme le fichier moteneau.txt
close(FICHIERSORTIE);
#On ferme le fichier amants.txt
close(FICHIERENTREE);