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