http://www.perlmonks.org?node_id=112768

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