use Benchmark;
use Email::Valid::Loose;
use Mail::RFC822::Address qw( valid );


my $iter = 100000;

my @results = ();

timethese($iter, { 'Mail::RFC822::Address' => <<EOS,
\$result[0] = valid('per\@p');
\$result[1] = valid('');
\$result[2] = valid('email\@domain.com');
\$result[3] = valid('email\@email\@domain.com');
EOS

'Email::Valid::Loose' => <<EOS } );
(\$result[4]) = 'per\@p' =~ /\^($Email::Valid::Loose::Addr_spec_re)\$/;
(\$result[5]) = '' =~ /\^($Email::Valid::Loose::Addr_spec_re)\$/;
(\$result[6]) = 'email\@domain.com' =~ /\^($Email::Valid::Loose::Addr_spec_re)\$/;
(\$result[7]) = 'email\@email\@domain.com' =~ /\^($Email::Valid::Loose::Addr_spec_re)\$/;
EOS