Select Code to Download

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

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