#!/usr/bin/perl -p

s/th/TH/gi;