Select Code to Download

for my $chr (160 .. 255) {
    my $chr_byte = chr($chr);
...
    my $rx = qr{$chr_byte|X}i;
    print $chr . " " . ($chr_utf8 =~ $rx ? "ok" : "not ok") . "\n";
}

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

   ...
   my $rx = qr{uci$chr_byte|uci_};
   ...