#!/usr/bin/perl -w -i.bak
use strict;
while (<>) {
    s/this/that/g;
    print;
}