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


##</code><code>##

open(test, "<$ARGV[0]"); # what happens when more args?

##</code><code>##

    s/(th)/TH/gi;

##</code><code>##

    s/th/TH/go;

##</code><code>##

    tr/th/TH/;