my @good = grep(s/../../, readdir(DIR));
or
    my @better = grep({-f "./$_", readdir(DIR));