#!/usr/bin/perl
open(FILEIN,"$ARGV[0]"); # on ouvre le fichier qu'on va lire
open(FILEOUT, ">resultatsPROPRE.txt"); # on ouvre le fichier sur lequel on va écrire
$i=1; # compteur
while ($ligne = <FILEIN>){ # tant qu'il y a qqch à lire, on rentre dans la boucle
	if ($ligne=~/<description>([^<]+)<\/description>/){ # si on trouve ce motif, on entre dans la boucle
			my $propre=$1;# on prend le motif et on le met dans $propre
			$propre=~s/&#38;#39;/\'/g;# nettoie
			$propre=~s/&#38;#34;/\"/g;# nettoie
			$propre=~s/&#233;/é/g;# nettoie
			$propre=~s/&#234;/ê/g;# nettoie
			print FILEOUT "contenu de la ligne n°$i : $propre\n"; # on affiche dans le fichier de sortie le motif trouvé et on les numérote avec le compteur
			 $i++; # on incrémente le compteur
} # fin de if
} # fin de while
close(FILEIN); # on ferme le fichier en lecture
close(FILEOUT);# on ferme le fichier en sortie