my $bad;
foreach (@array) {
   unless (/regexp/) {
     $bad = 1;
     last;
   }
}

die("Naughty\n")
   if $bad;

##</code><code>##

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

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