opendir my $dh, $dir or die "Can't opendir '$dir': $!";
my @files = grep { ! m{ \A \. \.? \z }xms } readdir $dh;
closedir $dh or die "Can't closedir? $!";