#!/usr/bin/perl
# nettoyage.pl

open(F,"$ARGV[0]");
open(Net,">NetXml.txt");


  while($ligne=<F>) {
  
    $ligne=~s/&#38;#39;/'/g;
    $ligne=~s/&#233;/é/g;
    $ligne=~s/&#234;/è/g;
    $ligne=~s/&#38;#34;/"/g;
    
   
    print Net $ligne,"\n";
                                                      
  
                    }
          

close(F);
close(Net);