#/bin/perl

@files=("surf-CULTURE.txt","surf-FRANCE-SOCIETE.txt","surf-OPINIONS.txt");

foreach $input (@files)
{
print "input : $input\n";
open(FILEIN,"$input");
open(FILEOUT,">epure-$input");
while($ligne=<FILEIN>)
{
$ligne=~s/&amp;eacute;/é/g;
$ligne=~s/&amp;egrave;/è/g;
$ligne=~s/&amp;ecirc;/ê/g;
$ligne=~s/&amp;agrave;/à/g;
$ligne=~s/&amp;acirc;/â/g;
$ligne=~s/&amp;ccedil;/ç/g;
$ligne=~s/&lt;.*?&gt;//g;
print FILEOUT "$ligne";
}

close(FILEIN);
close(FILEOUT);
}