http://qs1969.pair.com?node_id=1041001


in reply to Question for regex experts

perl -e '$x=qw(&apm;gt;lt;amp;);$x=~s/;(.)/;&$1/g;print $x,"\n";'