Help for this page

Select Code to Download

Select or download this

my $bad;
foreach (@array) {
...

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

Select or download this

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

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