$diff = $s1 ^ $s2;
$diff =~ tr/\0//c;