$< is not what I want that is 0, the script is setuid root (# chmod u+s). $> *might* be handled correctly bysuidperl but I haven't built one to play with yet. It seems unlikely however.

--
perl -p -e "s/(?:\w);([st])/'\$1/mg"