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

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

##</code><code>##

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