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

##</code><code>##

Can't emulate -e on #! line at being_too_clever.pl line 1.