#!/usr/bin/perl 
#ouvrir le fichier amants.txt en lecture
open(FICHIER, "amants.txt");
#créer la variable ligne contenant une ligne
$ligne = <FICHIER>;
#ouvrir le fichier résultat moteneau.txt en écriture
open(RESULTAT, ">moteneau.txt");
#tant qu'il y a des lignes dans le fichier amants.txt
while ($ligne = <FICHIER>){
    #pour chaque ligne contenant le motif eau
    if ($ligne =~ /eau/){
	#écrire dans le fichier résultat les lignes contenant le motif
	print RESULTAT $ligne, "\n";
    }
}
#fermer les deux fichiers
close(RESULTAT);
close(FICHIER);
