our @de = qw (*.* LOG cache AVCHD);

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

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