in reply to reg exps

This sounds like a homework problem. What have you already tried?

In Section Seekers of Perl Wisdom