Beefy Boxes and Bandwidth Generously Provided by pair Networks
Pathologically Eclectic Rubbish Lister

Dusty JAPH

by chargrill (Parson)
on Jan 19, 2007 at 00:01 UTC ( #595385=obfuscated: print w/replies, xml ) Need Help??

This one was also gathering dust on my hard drive. I think I whipped up quite a few at once several months ago, but didn't want to rapid-fire them into Obfuscated Code. (Note, monks with dust allergies are safe to run this code ;-)

#!/usr/bin/perl sub'_{ $_[ 0]=~s *_* *g&&$_[0]}$\=",";sub'__{$_[0]=~m *$/$/$/*;eval "sub'".$1.$2."{'".$3."'}";\&{"$1$2"}}$/=q*(\w)*;map{$#{$_}?$#{$_}++ && __$ _:'' ;$#.=&{__$_}}qw*TAJ YOu hIs yet _2_ Spa zEn Tao NOt ugh sue her _1_ VIP the far Url _0_ hah aha sIc aCk Ace fur* ;print _$#

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

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: obfuscated [id://595385]
Approved by liverpole
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others avoiding work at the Monastery: (3)
As of 2017-02-19 17:50 GMT
Find Nodes?
    Voting Booth?
    Before electricity was invented, what was the Electric Eel called?

    Results (293 votes). Check out past polls.