Beefy Boxes and Bandwidth Generously Provided by pair Networks
more useful options
 
PerlMonks  

meta JAPH

by ColonelPanic (Friar)
on Nov 15, 2012 at 15:05 UTC ( #1004028=obfuscated: print w/ replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
    $_=q|trdKVO99Rhlokd:trdGSLK99O`qrdq:#o<GSLK99O`
    ...
    '-)>(;[.oqd=.r:#o,=o`qrd'#0(|;sub AUTOLOAD{@_?(
    $_=~s/(.)\n?/chr(ord($1)+1)/egx,eval):AUTOLOAD(
    $AUTOLOAD=~s/\D//gr);}&split5and5and5chop6chop6
    
  2. or download this
    #!/usr/bin/perl
    $_=q|trdKVO99Rhlokd:trdGSLK99O`qrdq:#o<GSLK99O`
    ...
    '-)>(;[.oqd=.r:#o,=o`qrd'#0(|;sub AUTOLOAD{@_?(
    $_=~s/(.)\n?/chr(ord($1)+1)/egx,eval):AUTOLOAD(
    $AUTOLOAD=~s/\D//gr);}&split9join9chop75chop88;
    

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: obfuscated [id://1004028]
Approved by blue_cowdawg
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others surveying the Monastery: (12)
As of 2014-11-26 17:57 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My preferred Perl binaries come from:














    Results (172 votes), past polls