in reply to The way around < 5.6.x grep(... [,]* readdir(DIR)
my @better = grep({-f "./$_", readdir(DIR)); # ^ ^ # ^ ^ [download]