sub utf8_to_latin1
    { $_[0]=~s{([\xc0-\xc3])(.)}{
        my $hi = ord($1);
        my $lo = ord($2);
        chr((($hi & 0x03) <<6) | ($lo & 0x3F))
       }ge;
    }