sub hd { return ($_[0] ^ $_[1]) =~ tr/\001-\255//; }