Help for this page
XOR val change ... \x10 => T->G \x63 => T->N \x60 => T->T *
while ($diff =~ /([^\x0b\x1b\x03\x79\x60])/g) {