substr($sequence, $j, 1) = 'T';