obfuscated
idsfa
<p>Fits in less than four full 80-char lines, so I'm calling it my first JAPH. Known good on debian unstable (perl 5.8.0) and stable (perl 5.6.1). </p>
<code>
$_=q(vXvlrcYAGRKxl}mKnk|E[Nlf@beUE?~zOcOixyGxR~QHbFakKdCdNRNMvxdJudwanjuuU~FMLAalNl]xKrR{FKPCU}WynfhuNZmInLtCPEUp_pewMgf?fLJaKx?|kYiLhGs|SIIYuadPj|c);y/?-~/@-\x7f/;sub _{map{$L++%2?"":$_}@_}sub L{join('',_(@_))}@_=unpack("B*",$_)=~/..(...)(...)/g;$Y=L(@_);$L++;$_=L(@_);s/(.{7})/0\1/g;eval pack("B*",$_);pnirt(q(JAPH))
#
</code>
<b>Update:</b><br/>
<p>Reformatted per <a href="http://www.perlmonks.org/index.pl?node_id=272239">liz</a> and <a href="http://www.perlmonks.org/index.pl?node_id=281137">davido</a> ... thanks!</p>
<hr/>
<I>Remember, when you stare long into the abyss, you could have been home eating ice cream.</I>