perl -wle '$s = "\x{1000}"; print ord($s)'
  4096