$ perl -MO=Deparse -wpe "s/\b;([mnst])/'$1/g"
BEGIN { $^W = 1; }
LINE: while (defined($_ = <ARGV>)) {
    s/\b;([mnst])/'/g;
}
continue {
    print $_;
}
-e syntax OK