use Email::Valid;

# . . .

my $spammer;
$spammer = 1
  unless Email::Valid->address($f{'Email'})
    or $f{'Email'} eq '';