my $file = "file.txt";
open IN, "<$file" or die;
open OUT, ">$file.tmp" or die;
while ( my $line = <IN> ) {
    $line =~ s/word1/word2/g;
    print OUT $line;
}
close IN;
close OUT or die;
rename "$file.tmp", $file;