preprocess => sub {
    ## added ^ and $
    return grep { not(-d and /^dir(?:One|Two|Three)$/) } @_
  },