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 

        

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 https://metacpan.org/pod/Email::Valid. It seems to work pretty well.