http://qs321.pair.com?node_id=258785

I just wrote my first JAPH. It's not really obfuscated, though. I would really appreciate any comments on it.
#!perl -s * _=\ *DATA => s <> %join'' , <_> %e => s([^\d])))g=> s ^ \d {3} ^chr $&^egx=>~~split'' ;print+join'',map { $_ [$_] ^ $_ [- $_] } (1..@_>>1)=>__DATA__ 042123185208084070254140 01 01 700 Combat Squirrel's 772 4017 1061 17923 f i r s t 71340 190970 421301 0408004 J A P H 4064086 12005007 30590112 2706606512724413622702921714903722210122 6***1*5*9*1*0*2*0*3**2*1*6*3*2*0*4*0*4***9