>perl -MHTML::Entities=decode_entities -e"printf qq{U+%04X\n}, ord(decode_entities('®'))"
U+00AE