in reply to Basic regex to parse source code

Have you considered perltidy to reformat this code? (Perl::Tidy)

In Section Seekers of Perl Wisdom