my $num_bad = grep { !/regexp/ } @array;

die("$num_bad naughties\n")
   if $num_bad;