sub require_some_regexp {
    my ($n, $re) = @_;
    return sub {
        my $dfv = shift;
        $dfv->name_this('require_some_regexp');
        my $count = grep /$re/, keys %{ $dfv->get_filtered_data };
        return $count >= $n;
    };
}