my @files =  grep { ! /\.txt$|^\.{1,2}$/i } readdir DIR;