Abstract JAPH

[jake]

#!/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