Select Code to Download

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