Help for this page

Select Code to Download


  1. or download this
    use 5.010;
my $t = $s1 ^ $s2;
my ($f) = $t =~ /^(\x{00}*)/;
say length $f;
  2. or download this
    use 5.010;
my $t = $s1 ^ $s2;
$t =~ /^\0*/ && say $+[0]