Clever, but add the step (actually, merge it with the A9 -> metachar translation):

s%((?:\\w)+)%'\w{'. length($1)/2 .'}'%eg;
...
[download]

--
perl -pew "s/\b;([mnst])/'$1/g"