#!usr/bin/perl-W
open(IN,"amants.txt"); 
open(OUT,">les=des.txt");
$i=1;
while ($ligne = <IN>){ 
$ligne=~s/les/des/gi;
$ligne=~s/un/1/i;
$ligne=~s/deux/2/g;
print OUT "$ligne";
}
$i++;
close (IN);
close (OUT);
