Now the perl wizards will trounce this code
Let them, indeed. But you'll still get my vote. Pretty cool in my ragged little book :-)