My second obfu. Enjoy!

#!/usr/bin/perl
x(           );
xXx(XxX(chr(106
)x$y));$XxXxx =
XxX(('jjja'x4).
'j') ; $XxXxX =
$XxXxx;$xy; xXx
($XxXxx);$XxXxX
=~s x\+\+x\-\-x
;xXx(XxX('apapp
ppajjjjjap' ));
substr( $XxXxX,
$_,1)=uc(substr
($XxXxx,$_,1) )
for@XXxx;$xy=0;
xXx(XxX(chr(112
)x7));$XxXxX=~s
xpx$XXx;$XX;xXx
($XxXxX);$XxXxx
=XxX('hjjhhjhhp
apaaphhhhp' ) ;
$xy=12;$XxXxx=~
s!\^!\'!;$xy=13
;$XxXxx.=  ' ';
$XxXxx.=XxX('ap
hphppajajappajj
jhjaaa');$XxXxx
.=XxX('phpaphpa
p');$xy=1;print 
"\"$XxXxx.\"\n"
; sub x { @Xx=(
'}tjM"xX$X(xH',
'YDxf=xxXx/XP',
'$b`def $X~xA',
'%sun@X`5)=XJ',
'Xs;y}Xx1$x.}',
'$p"$_+x,Xx=;',
'+mm%xX=2XXc)',
'++$x$x(1=xh1',
'=$+op 7,"Xr-',
'X)+ora sh$()',
'$x=$ so^"(o1',
'{$fo trtIer$',
'a{meks bild(',
' pomrocahg)g',
'byr owkww/{v',
'u atn raX)$4',
'sth`lydsx.Xm')
;$X=0;$x=16;$Y=
12;$y=17; print 
"$XxXxX\n";}xXx
(XxX('phjhphjhp
hjhppppppajj'))
;xXx(XxX('jajaa
aaajjjjj'));xXx
(XxX('jjajjjjjj
jjjjjjjjjjapppp
ppppppppppppajj
jjjjjjj'));$xy=
0x1243;$XxXxX=~
s)sC)s C);$xy=0
;sub j{$x=--$x%
$y}sub xXx{eval
$_[0]}sub XxX {
$xX='' ;while (
$_[0]=~/(.)/g){
$xX .= substr (
@Xx[$x], $X,1);
$xxX ="$1\(\)";
xXx($xxX); $xy}
$XxX;return$xX}
x(           );
[download]

--jake
"This space intentionally left blank" -Zork