.
..
##</code><code>##

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

##</code><code>##

my @dots = glob("*"); # adjust argument to glob as needed