Help for this page
Select Code to Download
Select
or
download this
sub cdiff {my($a,$b,$c)=@_;($c=$a^$b)=~tr/\0//c;}