print map{chr(oct(100+eval"($_>100)?$_-100:chr($_)eq
qq(\/)?defined($_):chr($_)=~/\\\\/?-60:$_"# Enjoy :)
));}unpack("C"x25,"\fA?\@\\/89\@2->\\x->6\\\n)+5->")
[download]

--
Casey