#!/usr/bin/perl
open(FILEIN,"$ARGV[0]"); 
#on ouvre le fichier qu'on va lire
open(FILEOUT,">moteneau-4.txt");
#on ouvre le fichier sur lequel on va écrire
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=~/\w+/){ # si la ligne contient des caractères 
						#(on veut éviter les lignes blanches)
		@tableau=split(/ /,$ligne); 
		#On crée un tableau à partir de chaque ligne 
		#puis on segmente celle-ci grâce à split. 
		#On prend l'espace comme séparateur
		$element=pop @tableau; #on prend le dernier élément du tableau
		$element=~s/\;|\.|\,//g;
		print FILEOUT "$element"; #on imprime cet élément pour chaque ligne
		}#fin de if
}#fin de while
close(FILEIN); # on ferme le fichier en lecture
close(FILEOUT);# on ferme le fichier en sortie