my @f = grep /^\Q$fileName\E$/i,readdir D;