my $emailcheck = 0;
if ($_ =~ /^[_a-z0-9.-]+\@[_a-z0-9.-]*\.\w\w(\w)?$/i){$emailcheck++;}