@directories = grep { /[^.]/ && -d } <*>;  # list items must be directories whose
                                           # names contain something besides '.'