#!/usr/bin/perl -w

@test = (
'0email user <emailuser@emailaddress.com>',
'1email user <email.user@emailaddress.com>',
'2email user <emailuser@email-address.com>',
'3email user <emailuser@mail.email-address.com>',
'4email user <email.user@email-address>',
'5email user <email.user@email.addres.scom>',
'6email user <email.user@emailaddresscom>'
);

foreach $temp (@test){
	if ($temp =~ /\<([.-A-Za-z]+\@[.-A-Za-z]+\.[A-Za-z]{2,4}})\>/){
		print "$1\n";
	} else {
		print "$temp failed \n";
	}
}