8 next unless s/^name:\s+//;
9 next if m/iso8859-(?!1\b)/;
12 $other =~ s/\b(iso8859-1|microsoft-cp1251|paratype-\w+|muleipa-1|jisx0201\.1976-0)\b/iso10646-1/;
13 next if $done{$other};
17 foreach my $bold (keys %done) {
19 next unless $medium =~ s/\bbold\b/medium/;
20 delete $done{$bold} if $done{$medium};
23 foreach my $bold (keys %done) {
25 next unless $medium =~ s/-bold-/-/;
26 delete $done{$bold} if $done{$medium};
29 foreach (sort keys %done) {
32 print "xterm -fn '$_' -e '(echo $_; man ascii) |less' &\n";