#!/usr/bin/perl/
#########################################
# DESCRIPTION : Recherche dans le fichier amants.txt le segment "eau" et numérote dans un fichier séparé (moteneau.txt) les vers contenant ce segment
# [Etape 1, exercice 4-1]
#########################################

open (FILE, "amants.txt") or die "Impossible d'ouvrir amants.txt !";
open (FILEOUT, ">remplacements.txt");
while ($ligne = <FILE>){
	$ligne =~s/\bles\b/des/g;
	$ligne =~s/Les/Des/g;
	$ligne =~s/un/1/ig;
	$ligne =~s/deux/2/ig;
	print FILEOUT "$ligne";
}
close FILE;
close FILEOUT;