#!/usr/bin/perl -w

open Test, $ARGV[0] or die "$ARGV[0]: $!\n";

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

close Test;