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