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

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

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