substr($dna, $_, $mblock{$_}) ^= (" " x $mblock{$_});