use v5.18;
use warnings;
use autodie;

use File::Find::Rule;

my $rule = File::Find::Rule->or(
				File::Find::Rule->name('baby','dead')
				->directory()
				->prune()
				->discard()
				,
				File::Find::Rule->file->name('list.dat')
             );

my @files = $rule->in( glob('abc*') );

say "****************";
say for @files;