Select Code to Download

use strict;
use warnings;
...

push @posns, pos $diff while $diff =~ m{(?=[^\0])}g;
print qq{Differences, 0-based counting, at - @posns\n};

Differences, 1-based counting, at - 3 23
Differences, 0-based counting, at - 2 22