sub multidecode_utf8 {
    my $s = shift;
    1 while $s =~ tr/\x80-\xFF// && utf8::decode($s);
    return $s;
}