#!/usr/bin/perl --
use strict; use warnings;
use Data::Dump qw/ dd pp /;
use File::Find::Rule qw/ rule find /;

my @dirs   = find( qw/ directory name abc* in . /);
dd( \@dirs );
my $nobaby = rule( name => [ 'baby', 'dead' ], qw/ prune discard/ );
my $list   = rule( file => name => 'list.dat', );
my @files  = find( not => $nobaby , any => $list, in => \@dirs, );
dd( \@files );

@files = rule()->or(
## !IMPORTANT NOTE discard before prune with rule()/find()
    rule( name => [ 'baby','dead' ], qw/ directory discard prune /),
    rule( qw' file name list.dat ')
)->in(
    find( qw/ directory name abc* in . maxdepth 1 /),
);
dd( \@files );
__END__
$ perl ffffindrule.pl
["abcdefg"]
["abcdefg/coy/abu/list.dat", "abcdefg/coy/dabie/list.dat"]
["abcdefg/coy/abu/list.dat", "abcdefg/coy/dabie/list.dat"]