Perl: Modifier un fichier

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