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

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