Update: thanks broquaint ;)

Update II: Check if Mail::Address suits your needs, it extracts all found email-addresses from a given line of text and returns Mail::Address objects.

Always Super Search on such questions, or have a deeper look into Categorized Questions and Answers, as parsing an email-address is a very common problem, and as dragonchild, I believe, once said: "90% of every perl-program are already written". And 99% of these 90% can be found on CPAN ;)

And I thought the forced preview would make you think...
silly me *sigh*

regards,
tomte

Hlade's Law:

If you have a difficult task, give it to a lazy person --
they will find an easier way to do it.