for my $chr (160 .. 255) {
    my $chr_byte = chr($chr);
    my $chr_utf8 = chr($chr); utf8::upgrade($chr_utf8);
    my $rx = qr{uci$chr_utf8|uci_};
    my $s  =   "uci$chr_byte";
    print $chr . " " . ($s =~ $rx ? "ok" : "not ok") . "\n";
}