the way this works is all due to the fact that i'm currently re-reading the book advanced perl programming... which is a very very good book!

$a=1;eval{$c=0;$aa=$a/$c;};
@_=split//,$@;$b=\$_[5];$J=
chr( ord($_[14])+1);$a=chr(
ord($_[0])+1);$p=chr(ord($_
[4])+1);@p=($p);print$$$b.$
$b.$$$$b.${${${$b,}}}->[0];
[download]

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
i would slit my wrists for you