my @all_files = File::Find::Rule->file()->maxdepth(1)->in($dir);
# or
my @matching_files = File::Find::Rule->grep( qr/foo/ )->file()->maxdepth(1)->in($dir);