Here's my attempt (without peeking):

perl -e '$i=print map ord,qw"m W A +";print print++$i'
[download]

That's 44 characters

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