sub cdiff {my($a,$b,$c)=@_;($c=$a^$b)=~tr/\0//c;}