- or download this
my @entries = grep { /^\.+$/ } readdir(DH);
- or download this
# Everything that isn't just dots.
my @e = grep { ! /^\.+$/ } readdir(DH);
- or download this
# Everything that doesn't begin with . or .. (better!)
my @e = grep { ! /^\.\.?$/ } readdir(DH);