iconv aliases.pl

sub score { 
    return length($_[0]) > 8 ? 8 - length($_[0]) : length($_[0]);
}

my @s;
for my $o (`iconv -l`) {
    chomp $o;
    my(@aliases) = map(uc, split(/ /, $o));
    tr/A-Z0-9//cd for @aliases;
    print((sort { score($b) <=> score($a) } @aliases)[0] . ": $o\n");
}