my $charinfo = charinfo($code) or next;
next if $charinfo->{category} =~ /^[MC]/; # ignore Marks and "other" Control chars
push @{ $charlist{$_}->{ $charinfo->{$_} } }, chr $code
my $charinfo = charinfo($code) or next;
next if $charinfo->{category} =~ /^[MC]/; # ignore Marks and "other" Control chars
push @{ $charlist{$_}->{ $charinfo->{$_} } }, chr $code