# assuming the string is in $data:
print ord(substr($data, 0, 1)), "\n";