$entitified = 
  join ''
  , map { sprintf '&#%d;' , ord $_ }
      split '' , $raw_string ;