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