How can I get the first email address from the following string: $str eq '[EMAIL PROTECTED];[EMAIL PROTECTED]';
I've got something like:
$str =~ /^.*\@.*\.(\w{3}|\w{2,3}\.\w{2})$/
but it retrieves only second email.
Thank's.
_______________________________________________
ActivePerl mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
