@files = grep { /\errors.txt$/ && -f $_ }, @files; #### my @files = File::Find::Rule->file()->name('errors.txt')->maxdepth(1)->in($dir); #### my $file = $dir . '/errors.txt'; push @files, $file if -f $file;