Is there a Perl regular expression for validating email addresses?

Yes, there are Perl regular expressions for validating email addresses, although achieving perfect validation with a single regex is incredibly challenging due to the complexity of valid email address syntax as defined by RFC standards.

A commonly used and reasonably effective regex for email validation in Perl is:

/^[\w\-\.\+]+\@([\w\-]+\.)+[\w\-]+$/

Let's break down what this regex does:

- ^: Asserts the start of the string.

- [\w\-\.\+]+: Matches one or more word characters (alphanumeric and underscore), hyphens, dots, or plus signs. This part is for the local part of the email address before the "@" symbol.

- \@: Matches the "@" symbol literally.

- ([\w\-]+\.)+: Matches one or more occurrences of: one or more word characters or hyphens followed by a dot. This handles domain name parts such as "example.", "subdomain.example.".

- [\w\-]+: Matches one or more word characters or hyphens for the top-level domain such as "com", "org", "net".

- $: Asserts the end of the string.

This regex works well for most standard email address formats but does not cover all possibilities allowed by RFC specifications. For instance, it doesn't allow quoted local parts, IP address domains, or internationalized domains.

Here's an example of how you might use it in Perl:

my $email = "test@example.com";
if ($email =~ /^[\w\-\.\+]+\@([\w\-]+\.)+[\w\-]+$/) {
  print "Valid email address\n";
} else {
  print "Invalid email address\n";
}

For more robust email validation, it is usually best to use a dedicated library or module in Perl like Email::Valid, as it includes many edge cases and nuances of email addresses which are impossible to cover with a single regular expression. This is because true email validation is a complex problem involving DNS lookups, MX record validation, and syntax that goes beyond what a simple regex can handle.

Learn more about this