sub using_str_bit_ops_and_s {
   my ($s1, $s2) = @_;
   (my $mask = $s1) =~ s/[^\x00]/\xFF/g;
   return ($s1 & $mask) | ($s2 & ~$mask);
}