#/usr/bin/perl
open (FILE, "sortiesalemXMLRSS.txt");
open (OUT, ">corpusSALEM.txt");
while ($ligne=<FILE>) {
	$ligne=~s/&#39;/'/g;
	$ligne=~s/&#34;/"/g;
	$ligne=~s/&eacute;/é/g;
	$ligne=~s/&Eacute;/É/g;
	$ligne=~s/&agrave;/à/g;
	$ligne=~s/&ccedil;/ç/g;
	$ligne=~s/&egrave;/è/g;
	$ligne=~s/&ecirc;/ê/g;
	$ligne=~s/&ocirc;/ô/g;
	$ligne=~s/&icirc;/î/g;
	$ligne=~s/&acirc;/â/g;
	$ligne=~s/&ucirc;/û/g;
	$ligne=~s/&ugrave;/ù/g;
	$ligne=~s/&euml;/ë/g;
	$ligne=~s/&iuml;/ï/g;
	$ligne=~s/&uuml;/ü/g;
	$ligne=~s/&auml;/ä/g;
	$ligne=~s/&ouml;/ö/g;
	$ligne=~s/&#156;/œ/g;
	$ligne=~s/&#133/.../g;
	$ligne=~s/&#150;/_/g;
	$ligne=~s/&times;/x/g;	
	$ligne=~s/&amp;/&/g;
	$ligne=~s/&quot;/'/g;
	print OUT $ligne;
}
close FILE;
close OUT;