That's pretty cool. I do so enjoy obfuscated code that teaches me something about Perl when I understand it, as opposed to stuff that's merely hard to read, or has all the whitespace taken out, or such (not that there's a whole lot of that about, mind).