my $to_entitise = q{\x{100}-\x{1FFFFF}};  # Not present in iso-8859-1

my $decoded_html = decode('UTF-8', $utf8_html);
$decoded_html = encode_entities($decoded_html, $to_entitise);
my $latin1_html =  encode('iso-latin-1', $decoded_html);