sub using_str_bit_xor {
   my ($s1, $s2) = @_;
   (my $mask = $s1) =~ tr/\x00/\xFF/c;
   return (($s1 ^ $s2) & $mask ) ^ $s2;
}