#!/usr/bin/perl
open(FILEIN,"$ARGV[0]"); # on ouvre le fichier qu'on va lire
open(FILEOUT,">Baudelaire.txt");#on ouvre le fichier sur lequel on va écrire
while ($ligne = <FILEIN>){ #tant qu'il y a quelque chose à lire
		$ligne=~s/&egrave;/è/g;#nettoie
		$ligne=~s/&eacute;/é/g;#nettoie
		$ligne=~s/&agrave;/à/g;#nettoie
		$ligne=~s/les/des/g;
		$ligne=~s/Les/Des/g;
		#remplace 'les' par 'des'
		$ligne=~s/ un / 1 /g;
		#remplace 'un' par '1', 
		#attention, seulement si 'un' n'est pas dans un mot ex : unique
		$ligne=~s/ deux / 2 /g;
		#remplace 'deux' par '2', 
		#attention, seulement si 'deux' n'est pas dans un mot ex : deuxième
		print FILEOUT "$ligne";#on imprime les lignes
}#fin de while
close(FILEIN); #on ferme le fichier en lecture
close(FILEOUT);#on ferme le fichier en sortie
