in reply to exercise in regex

In Section Seekers of Perl Wisdom