Perhaps you need simpler blocks since wetware has a 7+/-2 chunk buffer (aka. short term memory) ;-).

--
perl -pe "s/\b;([st])/'\1/mg"