while (<test>) {    
    $_ =~ <test>;
    chomp;
    s/(th)/TH/gi;
    print "$_\n";
}

##</code><code>##

while (<test>) {    
    s/th/TH/gi;
    print;
}