Help for this page

Select Code to Download

Select or download this

#!usr/bin/env perl

...
    s/(th)/TH/gi;  # Case insensitive replace 'th' with TH everywhere
    print "$_\n";  # print $_ with a new line
}