my $xor = $s1 ^ $s2;
$xor =~ /[^\0]/g;
my $prefix_length = pos($xor) - 1;

##</code><code>##

index $s1 ^ $s2, "\03"