Taking the xor (^) of two strings will yield nulls (\x00) in every character position where the strings have the same character.

The regex matches the leading nulls, and length counts them. substr skips that many chars in $s and prints the rest.