use strict;
use warnings;
use autodie qw( :all);

opendir my $d,'/where/ever';
my @content=grep { !/^\.{1,2}$/ } readdir $d;
closedir $d;