#!/usr/bin/perl -pi

s/this/that/g;