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

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