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


in reply to Cyclical Japh

++liverpole, very nice! I really like how the layout of the obfu matches the output (though that's hardly surprising for you!)

Note, for maximal effect, anyone running this should have their terminal at least 49 lines high...

As an aside, maybe this explains why I'm having a rotten week, I typed in my birthday and it looks like my "P" and "E" are at all time lows, and my "I" is halfway toward the bottom as well. 8-|

Update: The following has been tucked away in case it acts as a bit of a spoiler:



--chargrill
s**lil*; $*=join'',sort split q**; s;.*;grr; &&s+(.(.)).+$2$1+; $; = qq-$_-;s,.*,ahc,;$,.=chop for split q,,,reverse;print for($,,$;,$*,$/)