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

it's actually a very simple code (as you can tell), but my first one here, so let's pretend it's a big deal, ok?! j/k hehe
=)

perl -e '$_=abs(sin(307));s/3|\.//g;$b=$_;$_=substr(atan2(1189,6823),2,8);eval"y/0-9/$b/";for($c=0;$c<5;$c++){print chr(substr($_,0,2));s/^..//;};'


~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
grrr.... argh!