Select Code to Download

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