sub decode_utf8_latin1 {
    my ($encoded) = @_;
    my $decoded;
    while (length $encoded) {
        $decoded .= decode("UTF-8", $encoded, Encode::FB_QUIET);
        $decoded .= substr($encoded, 0, 1, "") if length $encoded;
    }
    return $decoded;
}