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 <[e-mail]>
[e-mail], [e-mail], Ben Tailor <[e-mail]>

I tryed this

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

And the Out put xas:

Ben Tailor <[e-mail]>

Someone have an Idea?

Fixed using

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

Thx

Answer 1

Start with https://metacpan.org/pod/Email::Valid. It seems to work pretty well.