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