in reply to Perl code - sometimes UGLY...

Why not run it through perltidy?