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

Something funny:
*$=\%!,$*=$=,*==*#,$==join$",map#s s$*\*(q{%!})+6 s$.$$&&$_,(%$)[$*+6+2+6,$*/2+6,$**2-6-2-6-2,$**2-6] ;print+cos
Update: It seems it only works with perl 5.8 in a linux box, sorry.

$anarion=\$anarion;

s==q^QBY_^=,$_^=$[x7,print