Select Code to Download

# however, these assume strings don't contain \0

...
    ($a ^ $b) =~ m/^\0*/;
    substr($a, 0, $+[0]);
}