c:\@Work\Perl\monks>perl -wMstrict -MData::Dump -le
"my @dirs = qw(.  ..  ...  .abc  ..abc  xyz..  xyz.  abc  ab.c  a..bc);
 @dirs = grep { !/^\.|\.\.$/ } @dirs;
 dd \@dirs;
"
["xyz.", "abc", "ab.c", "a..bc"]