while (<>) {
/^#/ and next; # skip comments
- my ($iso, $name, $cont) = (split /\t/)[0, 4, 8];
- my $class = "c-\L$cont";
- $cc{ lc $iso } = [ $name, $class ];
+ my ($iso, $name, $cont, $tld) = (split /\t/)[0, 4, 8, 9];
+ my @info = ($name, "c-\L$cont");
+ $info[3] = $tld if $tld =~ s/\A\.// and $tld ne lc $iso;
+ $cc{ lc $iso } = \@info;
}
$cc{io}->[2] = "Chagos Islands";