my @entries = grep { /^\.+$/ } readdir(DH); 

##</code><code>##

# Everything that isn't just dots.
my @e = grep { ! /^\.+$/ } readdir(DH);  

##</code><code>##

# Everything that doesn't begin with . or .. (better!)
my @e = grep { ! /^\.\.?$/ } readdir(DH);