my @remove = grep { $_ !~ m/^\.{1,2}$/ } readdir($dfh);