Help for this page

Select Code to Download

Select or download this

use Tie::File;

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

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

Select or download this
```
perl -pi -e 's/THIS/THAT/g' yourfile
```