unpack('N', $s) ^ $val   # Big-endian byte order
  -or-
unpack('V', $s) ^ $val   # Little-endian byte order