find sub { push @messages, $_  if (-d $_ && !/^\.+$/); }, $dir