my @dots = grep { /^\./ } readdir(DIR);

##</code><code>##

    my @not_dots = grep { !/^\./ } readdir(DIR);