Why do you need awk to extract columns and split? Simply do your own glob-bing and use tr within perl.

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