>perl -MHTML::Entities -le"$foo=decode_entities('♥'); print for vec($foo,0,8), ord($foo)"
226
9829