my $to_entitise = q{<>&"'}; # Unsafe for HTML

my $decoded_text = decode('UTF-8', $utf8_text);
my $decoded_html = encode_entities($decoded_text, $to_entitise);
my $latin1_html = encode('iso-latin-1', $decoded_html, Encode::FB_HTMLCREF);