#!/usr/bin/perl -w												#on affiche les lignes qui contiennent le motif  rechercher

open (IN, "amants.txt");										#ouvre en lecture le fichier amants.txt ( fic d'entrée)
open (OUT, ">moteneau.txt");									#ouvre en écriture le fichier moteneau.txt (fic de sortie)
	while ($a=<IN>){											#parcours le fic d'entrée tant qu'il y  en a une ligne dans ce fic 
		if ($a=~/eau/) {										#si il y a une ligne qui contient le motif rechercher: "eau", affiche la
print OUT "$a";
	
		}
	}	
close (IN);													#fermeture du fichier en entrée
close(OUT);													#fermeture du fichier en  sortie