As newrisedesigns points out - you should use Mail::Address which is in MailTools. If you are unsure why you should use that module instead of a regex read RFC 821. This explains all the valid email address styles and how to parse them :)

grep

Mynd you, mønk bites Kan be pretti nasti...