#!/usr/bin/perl -w

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