foreach(@$data) {
      push @$results, $_    if /$match_regex/ && !/$negative_regex/;
   }