substr($dna, $_, $mblock{$_}, lc(substr($dna, $_, $mblock{$_})))