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