http://www.perlmonks.org?node_id=567380


in reply to Letters to the Editor Japh

You know, I always suspected there was something sick and twisted or at least seriously amiss in greater Boston. For a while, I thought it was my in-laws (who live on the north shore of Boston) - but this tears it - it's GOTTA be you.

Very well done! liverpole++

(Can I only give one ++? Drat!)



--chargrill
$,=42;for(34,0,-3,9,-11,11,-17,7,-5){$*.=pack'c'=>$,+=$_}for(reverse s +plit//=>$* ){$%++?$ %%2?push@C,$_,$":push@c,$_,$":(push@C,$_,$")&&push@c,$"}$C[$# +C]=$/;($#C >$#c)?($ c=\@C)&&($ C=\@c):($ c=\@c)&&($C=\@C);$%=$|;for(@$c){print$_^ +$$C[$%++]}