Select Code to Download

use Benchmark;
use Email::Valid::Loose;
...
(\$result[7]) = 'email\@email\@domain.com' =~ /\^($Email::Valid::Loose
+::Addr_spec_re)\$/;
EOS

Benchmark: timing 100000 iterations of Email::Valid::Loose, Mail::RFC8
+22::Address...
Email::Valid::Loose:  6 wallclock secs ( 7.26 usr +  0.00 sys =  7.26 
+CPU) @ 13774.10/s (n=100000)
Mail::RFC822::Address: 28 wallclock secs (27.03 usr +  0.00 sys = 27.0
+3 CPU) @ 3699.59/s (n=100000)