#!/usr/bin/perl "N3Uad0c31S8"=~m;ad0c;;$_=pack"a4",substr($&,0,1).(chr((408+$+[0]^3)>> +2).eval{$`=~m$([^3U])$;$1}. chr(ord("P")+hex("E")+abs("abp4Rd9Js$$AKls")+0x17));"HaQRdS*{9d8sH}-AG +hdJ72HBms;aehJd?UJs:bls8"=~ m$\w{2,5}(S)\*\{9([\d\w])?.*?(\w)hJ$;$_.=${1}.$::2.$3.chr(oct((10<<3|1 +1)+$=));print$~lc,"\n"
Well, this does not do any useful thing. It just printfs my name on stdout and returns. It was my first obfuscated perl code so please execude me! ;)

Edit: chipmunk 2002-03-04