The deparsed version of that (using perl -MO=Deparse) is pretty darn obfuscated, too.

Using the -p option fairs a little better. Using the -x<num> option (with 2 and 3 anyway) even makes the deparsing fail on perl 5.8.8 and perl 5.10.0 both.