#!/usr/bin/perl -w
#On ouvre en lecture le fichier amants.txt et on le référence sous le nom FICHIERENTREE
open(FICHIERENTREE, "<amants.txt");
#On ouvre en écriture le fichier remplace2.txt et on le référence sous le nom FICHIERSORTIE
#Si le fichier n'existe pas, il est créé
#Si le fichier existe déjà, son contenu est écrasé
open(FICHIERSORTIE, ">remplace2.txt");
#Tant qu'on peut associer une ligne du fichier amants.txt à la variable $ligne, on exécute le bloc d'instructions
while ($ligne=<FICHIERENTREE>) {
	#On remplace le mot "les" par "des" (L'option g signifie qu'on remplace toutes les occurences)
	$ligne=~s/\bLes\b/Des/g;
	$ligne=~s/\bles\b/des/g;
	#On remplace le mot "un" par "1" et "deux" par "2"
	$ligne=~s/\bun\b/1/g;
	$ligne=~s/\bdeux\b/2/g;
	#On écrit dans le fichier remplace2.txt le contenu de la variable $ligne
	print FICHIERSORTIE $ligne
}
#On ferme le fichier remplace2.txt
close(FICHIERSORTIE);
#On ferme le fichier amants.txt
close(FICHIERENTREE);