regex - How to extract email address from a string using perl? -

How to extract an email address from a string using pearl and enter an email address in a variable? My wire looks

  Ben Taylor & lt; Bentaylor@gmail.com> Barbara@gmail.com, barbara2@gmail.com, Ben Taylor & lt; Bentaylor@gmail.com>  

I tried it

  $ string = "Ben Taylor & lt; bentaylor@gmail.com> '; $ String = ~ / \ b ([^ \ s] + @ [^ \ s] +) \ b / g; Print $ string;  

And Out of Ax:

  Ben Taylor & lt; Bentaylor@gmail.com>  

Does anybody have ideas?

  Email: Valid-> Fixed using address ($ string); Get started with  

thx

Does.