print map {
  sprintf '&#%d;', $_
} unpack 'C*', $string;