#!/usr/bin/perl -pi

s/this/that/g; # substitutes this with that
s/one/two/g;   # substitutes one with two