use Tie::File;

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

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