5
|
1 |
6 |
26 |
length $_[0] <= 254 and $_[0] =~ /\015
# Make captures for user and domain only ($1 and $2), using (?: on any other parenthesis to avoid captures\015
^\015
( # Begin first part of email address\015
(?: # Option 1\015
[^<>()[\]\\.,;:\s\@\"]+ # Any character NOT in this set, at least one\015
(?:\015
\.[^<>()[\]\\.,;:\s\@\"]+ # Followed by any character NOT in these set, starting with dot, in groups from 0 to many\015
)*\015
)\015
|\015
(?: # Option 2\015
".*?(?
|
|
7 |
1 |
25 |
length $_[0] <= 254 and $_[0] =~ /\015
# Make captures for user and domain only ($1 and $2), using (?: on any other parenthesis to avoid captures\015
^\015
( # Begin first part of email address\015
(?: # Option 1\015
[^<>()[\]\\.,;:\s\@\"]+ # Any character NOT in this set, at least one\015
(?:\015
\.[^<>()[\]\\.,;:\s\@\"]+ # Followed by any character NOT in these set, starting with dot, in groups from 0 to many\015
)*\015
)\015
|\015
(?: # Option 2\015
".*?(?
|