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

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

PerlMonks parthenogenetically spawned by Tim Vroom.
PerlMonks is a proud member of the The Perl Foundation.
Speedy Servers and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.