$emailcheck++ if $emailaddress =~ /@[a-z0-9]+\.[a-z0-9]+/i;