从任何编码转换为实体

Question

如何从任何可能的编码转换为HTML实体？

这就是我已经拥有的。如何让它处理cp1252以及utf8？

use HTML::Entities;
sub convert_unicode {
    my $str = shift;
    utf8::decode($str); # decodes from utf8 if required, if latin-1 (iso-8859-1) then left alone
    return encode_entities($str);
}