$__=\q;$t.$s.$u;;$_=$$__;s`\W``g;$J=q;J;;s;^;;&&&_;
$aaa=\\\&_;$_=&O;$J=qq'$"';_($_);$J='A';$s=$t=$u='l
rep';$J&&s&&&&&&$$$aaa;$_.=q$not; Just Another Perl
Hacker herr$;;$_=O();$!=s;\s.*\s\;;;s;$u=chop($_=O(
));1?$s='e':$_::_s;;$t='ack';s$\$$Perl$&&s$P$ P$;$_
=$_.' H';$_.=(eval$$__);sub _{$_.=$J}sub O{reverse}
{ { { { { { { { { { { {print} } } } } } } } } } } }
[download]

When's the last time you used duct tape on a duct? --Larry Wall