miscutils/upcasetl

#!/usr/bin/awk -f
/^\.(TL|SH)/ { print; getline; print toupper($0); next }
{ print }