my $negative_regex = join '|',
                        map { s/^-//, $_ }
                        @$negative_criteria;