Why not run it through perltidy?
In reply to Re: Perl code SUCKS by atcroft in thread Perl code - sometimes UGLY... by otto