use HTML::Entities;
$test = "äöüÄÖÜß\x{20ac}"; # Umlaute und Euro-Zeichen
print HTML::Entities::encode_entities_numeric($test, "\x{7f}-\x{fffd}"), "\n";