find2perl . -exec "dir {} \;" | perl