XP is just a number PerlMonks

### Abstract JAPH

by jake (Monk)
 on Sep 17, 2001 at 02:51 UTC ( #112768=obfuscated: print w/ replies, xml ) 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

Comment on Abstract JAPH

Create A New User
Node Status?
node history
Node Type: obfuscated [id://112768]
Approved by root
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others avoiding work at the Monastery: (7)
As of 2016-05-30 11:09 GMT
Sections?
Information?
Find Nodes?
Leftovers?
Voting Booth?
What font do you use for programming?

Results (373 votes). Check out past polls.