Select Code to Download

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

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