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