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