How about combining glob with grep?

    my @readable = grep { -r } glob "*.txt";
[download]

OK, so you'll have to implement a bunch of tests if you want check multiple things, but that's because glob - for efficiency reasons - does nothing other than read a directory (See: perldoc -X)