my $pat = join "|", map quotemeta, @emailcrit;
$pat = qr/$pat/; # compile it once