in reply to How can I readdir and ! -d in one line

Find rule is cake, readdir is flour 

use File::Find::Rule qw/ find rule / ;
my @dirs = find( 
  directory => 
   maxdepth => 1,
   name => qr/\w/,
)->in($startdir);

[download]

In Section Seekers of Perl Wisdom