Gentle Monkomatic, please do yourself a huge favor and re-format the code of the OP (if that is, indeed, what you are dealing with) into human-readable form before you go any further. I haven't used it myself, but I hear nice things said about Perl::Tidy.