Help for this page

Select Code to Download

Select or download this
@array = grep !/$regex/, @array;

Select or download this

$x = 0;
while ($x < @array) {  # NOT <=, but <
  if ($array[$x] =~ /$regex/) { splice @array, $x, 1 }
  else { ++$x }
}