use strict;
use warnings;

open(my $in, "<", "input.txt")
    or die "Cannot open < input.txt: $!";

open(my $out, ">", "output.txt")
    or die "Cannot open < output.txt: $!";

while(my $line = <$in>) {
    $line =~ s/new/old/i;
}