my $FichierResulat = '/home/lenovo/Bureau/MesTravaux/Traitement_corpus/result2';
open( my $FhResultat, '>:utf8', $FichierResulat );
 
 
 
 
 
open(my $fh, "<:utf8", '/home/lenovo/Bureau/MesTravaux/Traitement_corpus/essai') or die "Failed to open file: $!\n";
 
 
 
#open(my $fh, "<:utf8", $directory) or die "Failed to open file: $!\n";
#open( my $FhResultat, '>:utf8', $FichierResulat ) or die "Failed to write file \n";
 
 
 
while(<$fh> ){
 
 
#next if m/^$/;
 
$_ =~ s/\n/ /;
#remplacer plusieurs ! par un seul
$_ =~s/\!+/ /g;
#Enlever ; et le , 
$_ =~s/[;,:]/ /g;
$_ =~s/\*+/ /g;
 
#supprimer point d'interrogation en arabe 
 
$_ =~s/\x{061F}/ /g;
#supprimer point virgule en arabe 
$_ =~s/\x{066C}/ /g;
 
$_ =~s/\x{066B}/ /g;
 
$_ =~s/\x{060C}/ /g;
#supprimer les expressions regulieres 
$_ =~s/\,//g;
 
$_ =~s/\;//g; 
$_ =~s/\*//g; 
 $_ =~s/\-//g;  
$_ =~ s/\_//g;
$_ =~s/\[//g;
$_ =~s/\]//g;
$_ =~s/\(//g; 
$_ =~s/\)//g;
$_ =~s/\{//g; 
$_ =~s/\}//g;    
$_ =~s/\'//g; 
#s/\"//g;
$_ =~s/\&//g;
$_ =~s/»//g;
$_ =~s/»//g;
 
$_ =~s/&#1563;//g;
 
$_ =~s/\|//g;   
 
$_ =~s/\\//g; 
$_ =~s/\+//g;
$_ =~s/://g;  
#supprimer les deux points
$_ =~s/\://g;
#remplacer plusieurs points par un seul
#$_ =~ s/\.+/ \. /g;
#$_ =~ s/\.+/ \. /g; 
$_ =~s/\.+/ /g;
$_ =~s/ +/ /g;
 
$_ =~s/\/\s+/ /g;
 
 
#Supprimer toute combinaison d'espaces et tabulations
$_ =~s/[ \t]+/ /g;
#Remplacer plusieurs espaces par un seul
$_ =~s/ +/ /g;
#Supprimer les lignes vides
$_ =~ s/^\s+//g; 
$_ =~ s/\n//g;
$_ =~ s/\n$/ /gs;
 
 print $FhResultat "$_";
 
 
 
}