perl -e 'my $x="ABCDE"; $y="BBCCD"; $diff=$x ^ $y; $count=$diff=~tr/\0//c; print unpack("B*",$x)."\n".unpack("B*",$y)."\n".unpack("B*",$diff)." ($count)\n";'