There are portable modules to do that. Or at least, do it once outside of the subroutine and save the value to a variable.

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