print"$f-",substr($s,length+(("$f"^"$s")=~/(\0*)/)[0]),"\n";

##</code><code>##

print"$f-",substr($s,/\0*/g&&pos),"\n"for("$f"^"$s");