Help for this page

Select Code to Download

Select or download this

use Modern::Perl;
use Email::Address;
...
my @addresses = Email::Address->parse($x);

say for @addresses;

Select or download this
```
jdoe@somewhere.com
bdoakes@nowhere.com
```