#!/usr/local/bin/perl
my $old="fichier1.txt";
my $new="fichier2.txt";
open(OLD, "<", $old)        or 
open(NEW, ">", $new)        or 
while ()