Do you mind telling us why you want to do this? Except for the crud at the bottom this is valid perl. And while it is a CPU hog you should take a look at perltidy on sourceforge.

--- demerphq
my friends call me, usually because I'm late....