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