#!/usr/bin/perl
open(FILEIN,"$ARGV[0]"); 
# on ouvre le fichier qu'on va lire
open(FILEOUT,">moteneau-2.txt");
#on ouvre le fichier sur lequel on va écrire
$i=1;
while ($ligne = <FILEIN>){ #tant qu'il y a quelque chose à lire
	if ($ligne=~/\&/) { #si la ligne contient le '&'
		$ligne=~s/&egrave;/è/g;# nettoie
		$ligne=~s/&eacute;/é/g;# nettoie
		$ligne=~s/&agrave;/à/g;# nettoie
		}#fin de if
    if ($ligne=~eau) { #si la ligne contient le motif 'eau' alors
        print FILEOUT "$i : $ligne"; 
		#on écrit cette ligne dans le fichier de sortie
    }#fin de if
$i++;
}#fin de while
close(FILEIN); # on ferme le fichier en lecture
close(FILEOUT);# on ferme le fichier en sortie