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

can be reduced to

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