Select Code to Download

use Regexp::Common qw[Email::Address];

unless ($email_addr =~ m/($RE{Email}{Address})/) {
  # error
}

unless (Email::Valid->address(-address => $email_addr, -mxcheck => 1))
+ {
  # error
}