Help for this page

Select Code to Download

Select or download this

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

Select or download this
```
index $s1 ^ $s2, "\03"
```