Possible solutions include
-- perl -p -e "s/(?:\w);([st])/'\$1/mg"
In reply to Namespace pollution by belg4mit