my $xor = substr($data[$d1],$s1,$L) ^ substr($data[$d2],$s2,$L);