Select Code to Download

while(@rowmatches = /[^\x{1}-\x{7f}]/go){
...

my %chars;

# my $descid;
...
}

print "found ". keys(%chars) . " distinct non-ascii chars\n";