Perl Monk, Perl Meditation PerlMonks

### Abstract JAPH

by jake (Monk)
 on Sep 17, 2001 at 02:51 UTC Need Help??

#!/usr/bin/perl \$_0=0; \$_0=~s _0_c_s; \$_0=~s _(c)_\$1_s; \$_0=~s _(c)_su\$1_s; \$_0=~s _(c)_b_s; _0('\$__0=\' \''); _0(\$_0.q/ _{_0(" \$_0\$__0\$_[\$_0_=0] \{\$_[++\$_0_]}")}/); _(q/_0_/,'return \$_[0]+97'); _('__0',' @_=split /1/,\$_[0]; for(0..\$#_){ \$_[\$_]=~s 0_0+10g; \$_[\$_]=~s +\\$+*5+g; \$_[\$_]=~s _0_-1_g; \$_[\$_] = chr (_0_(_0(qq/ \$_[\$_]/))); }return @_;' );@__0= (q/___/,q/ \$___=\$__0; \$___ .=\$_ for@__; return \$___/);@__ =__0(' (___)\$1(____) \$+(000) 1(__)\$+(00)1 (__)\$+(__ _)1(____)\$+(0) ');_(@__0); ___();sub _0{ eval\$_[0]}; @_0_=__0('(__) \$01(____)\$ 1(____)\$001(____)\$0'); @_00=__0('0_1(___)\$ 001(___)\$01(___ _)\$01_\$__1_ \$01(__ _)\$__ '); @___0 =__0(' (___)\$1_\$01 (___)\$__1(__)\$_'); @__0_=__0('(_)\$__10_1_ _1(__)\$1_\$01(___)\$__'); \$_0_[0]=uc(\$_0_[0]); \$___0[0]=uc(\$___0[0] );\$_00_.=\$_ for@_0_; \$_00_.=' ';\$_00_.= \$_ for@_00;\$_00_ .=' ';\$_00_ .=\$_ for @___0; \$_00_.= ' ';\$_00_ .=\$_ for@__0_; @_0=(q/__/,"\$___ \"\$_00_\"");_(@_0); __();
--jake
"This space intentionally left blank" -Zork

Create A New User
Node Status?
node history
Node Type: obfuscated [id://112768]
Approved by root
help
Chatterbox?
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others meditating upon the Monastery: (4)
As of 2018-04-19 23:32 GMT
Sections?
Information?
Find Nodes?
Leftovers?
Voting Booth?
My travels bear the most uncanny semblance to ...

Results (75 votes). Check out past polls.

Notices?