heh heh heh, woops. just re-rechecked and it seems I somehow managed to merge the top of yours with the bottom (while) of mine. Doh!

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