in reply to Regex problem

Consider Parse::RecDescent.

In Section Seekers of Perl Wisdom