G'day Aldebaran,

For testing these email addresses, you could try Regexp::Pattern::Email.

I used this common alias of mine:

$ alias perlu
alias perlu='perl -Mstrict -Mwarnings -Mautodie=:all -Mutf8 -C -E'

[download]

Here's my test code and output.

$ perlu '
    use Regexp::Pattern;

    my @addrs = (
        q{Elmer Fudd},
        q{Daffy Duck},
        q{Alternate},
        q{Phone},
        q{No},
        q{7/13/2017},
        q{Yes},
        q{9/09/2006},
        q{daffy@gmail.com},
        q{Elmer.am@gmail.com},
        q{12/5/2019},
        q{бесполезное.использование.кота@gmail.com},
        q{kobernIU@hotmail.comp},
        q{drüben@msn.com},
        q{manilow@barry76@gmail.com},
        q{moc.liamg@نالی بلی},
        q{時髦的貓@gmail.com},
        q{pen@ничего.net},
        q{last@nothing.nyet},
    );

    for my $addr (@addrs) {
        if ($addr =~ re("Email::email_address")) {
            say "OK:  |$addr|";
        }
        else {
            say "NOK: |$addr|";
        }
    }
'
NOK: |Elmer Fudd|
NOK: |Daffy Duck|
NOK: |Alternate|
NOK: |Phone|
NOK: |No|
NOK: |7/13/2017|
NOK: |Yes|
NOK: |9/09/2006|
OK:  |daffy@gmail.com|
OK:  |Elmer.am@gmail.com|
NOK: |12/5/2019|
OK:  |бесполезное.использование.кота@gmail.com|
OK:  |kobernIU@hotmail.comp|
OK:  |drüben@msn.com|
OK:  |manilow@barry76@gmail.com|
OK:  |moc.liamg@نالی بلی|
OK:  |時髦的貓@gmail.com|
OK:  |pen@ничего.net|
OK:  |last@nothing.nyet|

— Ken

In reply to Re: regex for unicode email addresses by kcott
in thread regex for unicode email addresses by Aldebaran

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.