in reply to reg expression needs a tweek

If you can't write it yourself, use a proper XML parser :D

In Section Seekers of Perl Wisdom