Consider using Email::Address:
use Modern::Perl; use Email::Address; my $x = 'jdoe@somewhere.com,bdoakes@nowhere.com'; my @addresses = Email::Address->parse($x); say for @addresses;
Output:
jdoe@somewhere.com bdoakes@nowhere.com
Update: Didn't notice that Anonymous Monk already covered this. I really do need more coffee...
In reply to Re: Dealing with '@' in Text Strings
by Kenosis
in thread Dealing with '@' in Text Strings
by Red_Dragon
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |