#!/usr/bin/perl
open(FICH_IN, "$ARGV[0]");
open(FICH_OUT, ">$ARGV[1]");
while ($ligne=<FICH_IN>)
{
	$ligne =~ s/& #38;#39;/\'/g;
	$ligne =~ s/& #233;/é/g;
	$ligne =~ s/& #234;/ę/g;
	$ligne =~ s/& #38;#34;/\"/g;
	print FICH_OUT "$ligne";
}
close(FICH_IN);
close(FICH_OUT);