$spammer = length($f{'Email'})
  && $f{'Email'} !~ /^(^\w|\-|\.)+\@(\w|\-|\.)+$/;