while (<>) {
/^#/ and next; # skip comments
my ($iso, $name, $cont) = (split /\t/)[0, 4, 8];
+ $cont =~ s/\AAN\z/aa/; # different antarctica abbreviation
my $class = "c-\L$cont";
$cc{ lc $iso } = [ $name, $class ];
}
s/ islands?\b//gi;
s/\bthe //g;
s/ and / & /g and s/(?<=.)[a-z ]+//g;
- s/\bsaint /st /gi;
+ s/ of / /g;
+ s/\bsa?int /st /gi;
+ s/United /Un. /gi;
s/South(?:ern)? /S-/g;
s/North(?:ern)? /N-/g;
s/New /n./g;