#!/usr/bin/perl 
#ouvrir le fichier amants.txt en lecture
open(FICHIER, "amants.txt");
#créer la variable ligne contenant une ligne
$ligne = <FICHIER>;
#ouvrir le fichier résultat resultat1.txt en écriture
open(RESULTAT, ">resultat1.txt");
#tant qu'il y a des lignes dans le fichier amants.txt
while ($ligne = <FICHIER>){
    #rechercher les formes "les" sing et pluriel et remplacer par "des"
    $ligne=~s/\bles\b/Des/g;
    $ligne=~s/\bles\b/des/g;
    #rechercher les formes "un" et "deux" et remplacer par "1" et "2"
    $ligne=~s/\bun\b/1/g;
    $ligne=~s/\bdeux\b/2/g;
    #reconstituer le texte modifié
    print RESULTAT $ligne, "\n";
}
#fermer les deux fichiers
close(RESULTAT);
close(FICHIER);
