# remove two consecutive white space characters
    $d =~ s/\s{2,2}//gx;