See the quotemeta function in the perlfunc man page. But you might just look at http://freshmeat.net first. Perhaps clean something up instead of starting from scratch.

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