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