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

In reply to Column of Obscurity by jake

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.