use HTML::Entities;
    my @codes = map{ encode_entities( $_, '\x00-\xff' ) } split//, $input;