my @dirs = grep { /\w/ && -d "$dir/$_" } readdir($dh);

##</code><code>##

my @dirs = grep { !/^\.\.?\z/ && -d "$dir/$_" } readdir($dh);