#!perl -pe s/th/TH/g