"... concise solution..."

Consider this TMTOWTDI:

#!/usr/bin/env perl

use strict;
use warnings;
use Path::Iterator::Rule;
use Data::Dump;
use feature qw (say);

my $rule = Path::Iterator::Rule->new;

$rule->or( $rule->new->name("*.pdf"), $rule->new->name("*.docx") );

my @matches = $rule->all(q(.));

dd \@matches;

say scalar @matches;

__END__
[download]

N.B.: Written in a hurry and not thoroughly tested, but it should work.

Regards, Karl