use Tie::File;

tie my @fh, 'Tie::File', "yourfile" or die("ack - $!");

s/$ARGV[0]/$ARGV[1]/g for @fh;

##</code><code>##

perl -pi -e 's/THIS/THAT/g' yourfile