my $old  = "......";
my $new  = "......";

my $diff = $old ^ $new;
my $cnt  = $diff =~ y/\0//cd;