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@
[email protected]
p@[email protected]
[email protected]
[email protected]
[email protected]
[email protected]
[email protected]
[email protected]
[email protected]
/;

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