$emailcheck=0;
$_=$emailaddress;
if ( !/\@([a-z][A-Z][0-9]\.+)([0-9][a-z][A-Z]+)/ ) { $emailcheck++; }