Email regex template

email_template.pl

#!/usr/bin/perl -w

use strict;

my @emails = qw/
petetheemersons.org
p
p@
p@t.
@
@t.e 
@theemersons.org@
pete@the..emersons.org
p@t@theemersons.org
pete@theemersons.org
pete-pete@theemersons.org
pete@the-emersons.org
pete-pete@the-emersons.org
pete-pete@awesome.a.b.c.d.the-emersons.org
pete+nospam@theemersons.org
PETE+CAPITAL@THEEMERSONS.ORG
/;

my $index = '1';
foreach my $email (@emails) {
	printf("%2.0d ", $index);
	if ($email =~ /REGEX/) {
		print "PASS: $email\n";
	} else {
		print "FAIL: $email\n";
	}
	$index++;
}