use HTML::Entities qw(encode_entities_numeric decode_entities);

# Ärger ist das ärgern über das große ß!
my $html = 'Ärger ist, das ärgern über das große ß!';

my $echter_text = decode_entities($html);
my $numerisch_kodiert = encode_entities_numeric($echter_text);

print <<TXT;
$html
-> 
$echter_text
-> 
$numerisch_kodiert
TXT