XOR val    change

          \x0b => A->A  *    ( "A" ^ "J" )
          \x19 => A->C       ( "A" ^ "X" )
          \x05 => A->G       ( "A" ^ "D" )
          \x76 => A->N       ...
          \x75 => A->T
          \x09 => C->A
          \x1b => C->C  *
          \x07 => C->G
          \x74 => C->N
          \x77 => C->T
          \x0d => G->A
          \x1f => G->C
          \x03 => G->G  *
          \x70 => G->N
          \x73 => G->T
          \x04 => N->A
          \x16 => N->C
          \x0a => N->G
          \x79 => N->N  *
          \x7a => N->T
          \x1e => T->A
          \x0c => T->C
          \x10 => T->G
          \x63 => T->N
          \x60 => T->T  *

##</code><code>##

    while ($diff =~ /([^\x0b\x1b\x03\x79\x60])/g) {