#!/usr/bin/perl
open(FILEIN,"$ARGV[0]"); # on ouvre le fichier qu'on va lire
open(FILEOUT, ">sortiepropre.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>/){ 
			my $propre=$1;
			$propre=~s/&#233;/é/g;
			$propre=~s/&#234;/ê/g;
			print FILEOUT "contenu de la ligne n°$i : $propre\n"; 
			 $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
