How to extract email address from a string using perl?

Question

How to extract emails address from a string using perl and to put the email addres into a variable? My strings looks like

Ben Tailor <[email protected]>
[email protected], [email protected], Ben Tailor <[email protected]>

I tryed this

$string ="Ben Tailor <[email protected]>";
$string =~ /\b([^\s]+@[^\s]+)\b/g ;
print $string;

And the Out put xas:

Ben Tailor <[email protected]>

Someone have an Idea?

Fixed using

Email::Valid->address($string);

Thx

Answer 1

Take a look at Email::Address or Email::AddressParser from cpan

 my @addrs = Email::Address->parse(
    q[me@local, Tony <me@local>, "Tony" <me@local>]
  );

This returns a list of Email::Address objects it finds in the input string.

Answer 2

Start with http://search.cpan.org/search?mode=module&query=Email::Valid .