my %chars;

# my $descid;
# my $conid;

while (<>) {
   while (/[^\x{1}-\x{7f}]/go){ 
    ++$chars{$&};
   }
}
foreach my $char (keys %chars){
	print "$char found $chars{$char} times\n";
}

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