#!/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 remplace1.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, ">remplace1.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 écrit dans le fichier remplace1.txt le contenu de la variable $ligne
	print FICHIERSORTIE $ligne
}
#On ferme le fichier remplace1.txt
close(FICHIERSORTIE);
#On ferme le fichier amants.txt
close(FICHIERENTREE);