#!/usr/bin/perl
open(FILEINPUT,"$ARGV[0]");
open(FILEOUTPUT, ">resultat.txt");
$i=1;
while ($ligne = <FILEINPUT>){   # boucle while. 
	if ($ligne=~/<description>([^<]+)<\/description>/) { 
             my $recup=$1;
			 $recup=~s/&#38;#39;/\'/g;
			 $recup=~s/&#38;#34;/\"/g;
			 $recup=~s/&#233;/é/g;
			 $recup=~s/&#234;/è/g;
# il va imprimer la ligne dans notre fichier résultat. 
			 print FILEOUTPUT "Contenu de description $i : $recup\n\n"; 
			 $i++;
     }
}
close(FILEOUTPUT);
close(FILEINPUT);