my $filter;
if ( @accept || @reject ) {
   $filter = join "",
      ( map "(?=(?s:.*?)$_)", @accept ),
      ( map "(?!(?s:.*?)$_)", @reject );

   $filter = qr/^$filter/;
} else {
   $filter = qr/(*FAIL)/;
}

sub filter { map $_->[0], grep { $_->[1] =~ $filter } @_ }