#!usr/bin/env perl
open (test, "@ARGV");
while (<test>) {
$_ =~ <test>;
chomp;
s/(th)/TH/gi;
print "$_\n";
}
close (test);