push@_,sprintf"%04x",$_ foreach(join('',(map{chr(ord^27)}
split'','*"+.-))()*)",(++*+/()#)-+-((+*)-,)-))(**+#)#++*'
.'-).)")"+/"-,.*#./++.-"(),.+)))(*"**,,-'))=~m~(\d{5})~g)
;chop @_;print(map{chr hex}join('', @_)=~m,(..),g,c,a);

[download]
Remember, when you stare long into the abyss, you could have been home eating ice cream.

Back to Obfuscated Code