perl -wle '$s = "\100"; print ord($s)'
  64

##</code><code>##

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