Select Code to Download

open my $ifh, '<', $filename or die "$filename: $!";
chomp( my @array = <$ifh> );
...
open my $ofh, '>', $filename or die "$filename: $!";
print $ofh $_,"\n" for @array;
close $ofh;

use File::Replace;
 
...
    print {$repl->out_fh} $line, "\n";
}
$repl->finish;