open(OLD, "<old.txt") or die "can't open original file: $!";
open(NEW, ">new.txt") or die "can't open new file: $!";

while(<OLD>) {
    s/whatever/somethingelse/;
    print NEW;
}

close(OLD);
close(NEW)

rename("new.txt", "old.txt");