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