#        123456789_123456789_123
perl -le'print~~grep-f,<@ARGV/*>' dir

# Assuming a single dir, of course. And assuming a *nix-like environment with unbroken libraries.