#!/usr/bin/perl
binmode STDIN, ":utf8";
binmode STDOUT, ":utf8";
while (<>) {
# Drop apparently-duplicate cities
next if /-364867.*Tacna/; # Tacna, Peru
next if /6034170.*Bujumbura/; # Bujumbura, Burundi
next if /-225337.*Akita/; # Akita, Japan
next if /10074674.*\tIR\t/; # Tehran, Iran
next if /-3414440.*\tTH\t/; # Bangkok, Thailand
next if /9026906.*\tWarszawa/; # Warsaw, Poland
# "Zürich" should be listed with an English name of "Zurich"
if (/-2554935.*Zürich/) {
# print the local name
print;
# change the data, then fall through to print that as well
s/\tN\t\t/\tC\teng\t/;
s/Zürich/Zurich/;
}
# The capital of Mexico should be "Mexico City" in English, not just
# "Mexico". #171718
if (/-1658079.*\tC\teng/) {
s/MEXICO\tMexico\tMexico\t/MEXICOCITY\tMexico City\tMexico City\t/;
}
print;
}