my $x = $str1 ^ $str2; 
$x =~ s/[^\0]+//g; 
print length($x);