substr($str,0,1) = 'D';  #set the first char of $str to 'D'