sub filter_stuff {
  my ($stuff, @patterns) = @_;

  my $i = @$stuff;
  while ($i--) {
    for (@patterns) {
      next unless $stuff->[$i] =~ /$_/;
      splice(@$stuff, $i, 1);
      last;
    }
  }
}