return map {tr/\0/\0/ / $len} $ref_seq ^ $test_seq;