our @dirExclusions = qw( \.
    \/LOG(\/|$)
    \/cache(\/|$)
    \/AVCHD(\/|$)
    );
our @dirExclusionsQR = map { qr/$_/i } @dirExclusions;

my $rule = File::Find::Rule->new;
$rule->or(
    $rule->new->directory->name( @dirExclusionsQR )->prune->discard,
    $rule->new->directory);

my @fileList2;
@fileList2 = $rule->in($tagLocation);