use 5.010;
my $t = $s1 ^ $s2;
my ($f) = $t =~ /^(\x{00}*)/;
say length $f;

##</code><code>##

use 5.010;
my $t = $s1 ^ $s2;
$t =~ /^\0*/ && say $+[0]