# landenavne_dubler.pl
# bruges hvis landenavne skal dubleres, f.eks. for at skabe nyt sorterbart felt

use strict;
use warnings;
 
$|=1;
sub main {
    my $file = $ARGV[0];
    open(INPUT, $file) or die("Input file $file not found.\n");
    my $output = $ARGV[1];
    open(OUTPUT, '>'.$output) or die "Can't create $output.\n";
    while(my $line = <INPUT>) {
    

$line =~ s/, Afghanistan$/, Afghanistan\tAfghanistan/ig;
$line =~ s/, Albania$/, Albania\tAlbania/ig;
$line =~ s/, Algeria$/, Algeria\tAlgeria/ig;
$line =~ s/, Andorra$/, Andorra\tAndorra/ig;
$line =~ s/, Angola$/, Angola\tAngola/ig;
$line =~ s/, Argentina$/, Argentina\tArgentina/ig;
$line =~ s/, Armenia$/, Armenia\tArmenia/ig;
$line =~ s/, Australia$/, Australia\tAustralia/ig;
$line =~ s/, Austria$/, Austria\tAustria/ig;
$line =~ s/, Azerbaijan$/, Azerbaijan\tAzerbaijan/ig;
$line =~ s/, Bahamas$/, Bahamas\tBahamas/ig;
$line =~ s/, Bahrain$/, Bahrain\tBahrain/ig;
$line =~ s/, Bangladesh$/, Bangladesh\tBangladesh/ig;
$line =~ s/, Barbados$/, Barbados\tBarbados/ig;
$line =~ s/, Belarus$/, Belarus\tBelarus/ig;
$line =~ s/, Belgium$/, Belgium\tBelgium/ig;
$line =~ s/, Belize$/, Belize\tBelize/ig;
$line =~ s/, Benin$/, Benin\tBenin/ig;
$line =~ s/, Bermuda$/, Bermuda\tBermuda/ig;
$line =~ s/, Bhutan$/, Bhutan\tBhutan/ig;
$line =~ s/, Bolivia$/, Bolivia\tBolivia/ig;
$line =~ s/, Bosnia & Herceg$/, Bosnia & Herceg\tBosnia & Herceg/ig;
$line =~ s/, Bosnia and Herzegovina$/, Bosnia and Herzegovina\tBosnia and Herzegovina/ig;
$line =~ s/, Botswana$/, Botswana\tBotswana/ig;
$line =~ s/, Brazil$/, Brazil\tBrazil/ig;
$line =~ s/, Brunei$/, Brunei\tBrunei/ig;
$line =~ s/, Bulgaria$/, Bulgaria\tBulgaria/ig;
$line =~ s/, Burkina Faso$/, Burkina Faso\tBurkina Faso/ig;
$line =~ s/, Byelarus$/, Byelarus\tByelarus/ig;
$line =~ s/, Cambodia$/, Cambodia\tCambodia/ig;
$line =~ s/, Cameroon$/, Cameroon\tCameroon/ig;
$line =~ s/, Canada$/, Canada\tCanada/ig;
$line =~ s/, Cent Afr Republ$/, Cent Afr Republ\tCent Afr Republ/ig;
$line =~ s/, Chile$/, Chile\tChile/ig;
$line =~ s/, China$/, China\tChina/ig;
$line =~ s/, Colombia$/, Colombia\tColombia/ig;
$line =~ s/, Congo$/, Congo\tCongo/ig;
$line =~ s/, Costa Rica$/, Costa Rica\tCosta Rica/ig;
$line =~ s/, Cote Ivoire$/, Cote Ivoire\tCote Ivoire/ig;
$line =~ s/, Croatia$/, Croatia\tCroatia/ig;
$line =~ s/, Cuba$/, Cuba\tCuba/ig;
$line =~ s/, Cyprus$/, Cyprus\tCyprus/ig;
$line =~ s/, Czech Republic$/, Czech Republic\tCzech Republic/ig;
$line =~ s/, Denmark$/, Denmark\tDenmark/ig;
$line =~ s/, Dominica$/, Dominica\tDominica/ig;
$line =~ s/, Ecuador$/, Ecuador\tEcuador/ig;
$line =~ s/, Egypt$/, Egypt\tEgypt/ig;
$line =~ s/, El Salvador$/, El Salvador\tEl Salvador/ig;
$line =~ s/, England$/, England\tEngland/ig;
$line =~ s/, Eritrea$/, Eritrea\tEritrea/ig;
$line =~ s/, Estonia$/, Estonia\tEstonia/ig;
$line =~ s/, Ethiopia$/, Ethiopia\tEthiopia/ig;
$line =~ s/, Faroe Islands$/, Faroe Islands\tFaroe Islands/ig;
$line =~ s/, Fiji$/, Fiji\tFiji/ig;
$line =~ s/, Finland$/, Finland\tFinland/ig;
$line =~ s/, Fr Polynesia$/, Fr Polynesia\tFr Polynesia/ig;
$line =~ s/, France$/, France\tFrance/ig;
$line =~ s/, French Guiana$/, French Guiana\tFrench Guiana/ig;
$line =~ s/, Gabon$/, Gabon\tGabon/ig;
$line =~ s/, Gambia$/, Gambia\tGambia/ig;
$line =~ s/, Georgia$/, Georgia\tGeorgia/ig;
$line =~ s/, Germany$/, Germany\tGermany/ig;
$line =~ s/, Ghana$/, Ghana\tGhana/ig;
$line =~ s/, Greece$/, Greece\tGreece/ig;
$line =~ s/, Greenland$/, Greenland\tGreenland/ig;
$line =~ s/, Grenada$/, Grenada\tGrenada/ig;
$line =~ s/, Guadeloupe$/, Guadeloupe\tGuadeloupe/ig;
$line =~ s/, Guatemala$/, Guatemala\tGuatemala/ig;
$line =~ s/, Guinea Bissau$/, Guinea Bissau\tGuinea Bissau/ig;
$line =~ s/, Guinea$/, Guinea\tGuinea/ig;
$line =~ s/, Honduras$/, Honduras\tHonduras/ig;
$line =~ s/, Hong Kong$/, Hong Kong\tHong Kong/ig;
$line =~ s/, Hungary$/, Hungary\tHungary/ig;
$line =~ s/, Iceland$/, Iceland\tIceland/ig;
$line =~ s/, India$/, India\tIndia/ig;
$line =~ s/, Indonesia$/, Indonesia\tIndonesia/ig;
$line =~ s/, Iran$/, Iran\tIran/ig;
$line =~ s/, Iraq$/, Iraq\tIraq/ig;
$line =~ s/, Ireland$/, Ireland\tIreland/ig;
$line =~ s/, Israel$/, Israel\tIsrael/ig;
$line =~ s/, Italy$/, Italy\tItaly/ig;
$line =~ s/, Jamaica$/, Jamaica\tJamaica/ig;
$line =~ s/, Japan$/, Japan\tJapan/ig;
$line =~ s/, Jordan$/, Jordan\tJordan/ig;
$line =~ s/, Kazakhstan$/, Kazakhstan\tKazakhstan/ig;
$line =~ s/, Kenya$/, Kenya\tKenya/ig;
$line =~ s/, Kuwait$/, Kuwait\tKuwait/ig;
$line =~ s/, Kyrgyzstan$/, Kyrgyzstan\tKyrgyzstan/ig;
$line =~ s/, Laos$/, Laos\tLaos/ig;
$line =~ s/, Latvia$/, Latvia\tLatvia/ig;
$line =~ s/, Lebanon$/, Lebanon\tLebanon/ig;
$line =~ s/, Lesotho$/, Lesotho\tLesotho/ig;
$line =~ s/, Liberia$/, Liberia\tLiberia/ig;
$line =~ s/, Libya$/, Libya\tLibya/ig;
$line =~ s/, Liechtenstein$/, Liechtenstein\tLiechtenstein/ig;
$line =~ s/, Lithuania$/, Lithuania\tLithuania/ig;
$line =~ s/, Luxembourg$/, Luxembourg\tLuxembourg/ig;
$line =~ s/, Macao$/, Macao\tMacao/ig;
$line =~ s/, Macau$/, Macau\tMacau/ig;
$line =~ s/, Macedonia$/, Macedonia\tMacedonia/ig;
$line =~ s/, Madagascar$/, Madagascar\tMadagascar/ig;
$line =~ s/, Malagasy Republ$/, Malagasy Republ\tMalagasy Republ/ig;
$line =~ s/, Malawi$/, Malawi\tMalawi/ig;
$line =~ s/, Malaysia$/, Malaysia\tMalaysia/ig;
$line =~ s/, Mali$/, Mali\tMali/ig;
$line =~ s/, Malta$/, Malta\tMalta/ig;
$line =~ s/, Martinique$/, Martinique\tMartinique/ig;
$line =~ s/, Mauritania$/, Mauritania\tMauritania/ig;
$line =~ s/, Mauritius$/, Mauritius\tMauritius/ig;
$line =~ s/, Mexico$/, Mexico\tMexico/ig;
$line =~ s/, Moldova$/, Moldova\tMoldova/ig;
$line =~ s/, Monaco$/, Monaco\tMonaco/ig;
$line =~ s/, Mongol Peo Rep$/, Mongol Peo Rep\tMongol Peo Rep/ig;
$line =~ s/, Mongolia$/, Mongolia\tMongolia/ig;
$line =~ s/, Montenegro$/, Montenegro\tMontenegro/ig;
$line =~ s/, Morocco$/, Morocco\tMorocco/ig;
$line =~ s/, Mozambique$/, Mozambique\tMozambique/ig;
$line =~ s/, Myanmar$/, Myanmar\tMyanmar/ig;
$line =~ s/, Namibia$/, Namibia\tNamibia/ig;
$line =~ s/, Nepal$/, Nepal\tNepal/ig;
$line =~ s/, Neth Antilles$/, Neth Antilles\tNeth Antilles/ig;
$line =~ s/, Netherlands$/, Netherlands\tNetherlands/ig;
$line =~ s/, New Caledonia$/, New Caledonia\tNew Caledonia/ig;
$line =~ s/, New Zealand$/, New Zealand\tNew Zealand/ig;
$line =~ s/, Nicaragua$/, Nicaragua\tNicaragua/ig;
$line =~ s/, Niger$/, Niger\tNiger/ig;
$line =~ s/, Nigeria$/, Nigeria\tNigeria/ig;
$line =~ s/, Norge$/, Norge\tNorge/ig;
$line =~ s/, North Ireland$/, North Ireland\tNorth Ireland/ig;
$line =~ s/, North Korea$/, North Korea\tNorth Korea/ig;
$line =~ s/, Norway$/, Norway\tNorway/ig;
$line =~ s/, Oman$/, Oman\tOman/ig;
$line =~ s/, Pakistan$/, Pakistan\tPakistan/ig;
$line =~ s/, Panama$/, Panama\tPanama/ig;
$line =~ s/, Papua N Guinea$/, Papua N Guinea\tPapua N Guinea/ig;
$line =~ s/, Paraguay$/, Paraguay\tParaguay/ig;
$line =~ s/, Peoples R China$/, Peoples R China\tPeoples R China/ig;
$line =~ s/, Peru$/, Peru\tPeru/ig;
$line =~ s/, Philippines$/, Philippines\tPhilippines/ig;
$line =~ s/, Poland$/, Poland\tPoland/ig;
$line =~ s/, Portugal$/, Portugal\tPortugal/ig;
$line =~ s/, Puerto Rico$/, Puerto Rico\tPuerto Rico/ig;
$line =~ s/, Qatar$/, Qatar\tQatar/ig;
$line =~ s/, Rep of Georgia$/, Rep of Georgia\tRep of Georgia/ig;
$line =~ s/, Reunion$/, Reunion\tReunion/ig;
$line =~ s/, Romania$/, Romania\tRomania/ig;
$line =~ s/, Russia$/, Russia\tRussia/ig;
$line =~ s/, Russian Federation$/, Russian Federation\tRussian Federation/ig;
$line =~ s/, Rwanda$/, Rwanda\tRwanda/ig;
$line =~ s/, San Marino$/, San Marino\tSan Marino/ig;
$line =~ s/, Sao Tome & Prin$/, Sao Tome & Prin\tSao Tome & Prin/ig;
$line =~ s/, Saudi Arabia$/, Saudi Arabia\tSaudi Arabia/ig;
$line =~ s/, Scotland$/, Scotland\tScotland/ig;
$line =~ s/, Senegal$/, Senegal\tSenegal/ig;
$line =~ s/, Serbia Monteneg$/, Serbia Monteneg\tSerbia Monteneg/ig;
$line =~ s/, Serbia$/, Serbia\tSerbia/ig;
$line =~ s/, Seychelles$/, Seychelles\tSeychelles/ig;
$line =~ s/, Sierra Leone$/, Sierra Leone\tSierra Leone/ig;
$line =~ s/, Singapore$/, Singapore\tSingapore/ig;
$line =~ s/, Slovakia $/, Slovakia \tSlovakia /ig;
$line =~ s/, Slovakia$/, Slovakia\tSlovakia/ig;
$line =~ s/, Slovenia$/, Slovenia\tSlovenia/ig;
$line =~ s/, Solomon Islands$/, Solomon Islands\tSolomon Islands/ig;
$line =~ s/, South Africa$/, South Africa\tSouth Africa/ig;
$line =~ s/, South Korea$/, South Korea\tSouth Korea/ig;
$line =~ s/, Spain$/, Spain\tSpain/ig;
$line =~ s/, Sri Lanka$/, Sri Lanka\tSri Lanka/ig;
$line =~ s/, St Kitts & Nevi$/, St Kitts & Nevi\tSt Kitts & Nevi/ig;
$line =~ s/, Sudan$/, Sudan\tSudan/ig;
$line =~ s/, Surinam$/, Surinam\tSurinam/ig;
$line =~ s/, Swaziland$/, Swaziland\tSwaziland/ig;
$line =~ s/, Sweden$/, Sweden\tSweden/ig;
$line =~ s/, Switzerland$/, Switzerland\tSwitzerland/ig;
$line =~ s/, Syria$/, Syria\tSyria/ig;
$line =~ s/, Syrian Arab Republic$/, Syrian Arab Republic\tSyrian Arab Republic/ig;
$line =~ s/, Taiwan$/, Taiwan\tTaiwan/ig;
$line =~ s/, Tajikistan$/, Tajikistan\tTajikistan/ig;
$line =~ s/, Tanzania$/, Tanzania\tTanzania/ig;
$line =~ s/, Thailand$/, Thailand\tThailand/ig;
$line =~ s/, The Czech Republic$/, The Czech Republic\tThe Czech Republic/ig;
$line =~ s/, The Netherlands$/, The Netherlands\tThe Netherlands/ig;
$line =~ s/, Togo$/, Togo\tTogo/ig;
$line =~ s/, Tonga$/, Tonga\tTonga/ig;
$line =~ s/, Trinid & Tobago$/, Trinid & Tobago\tTrinid & Tobago/ig;
$line =~ s/, Tunisia$/, Tunisia\tTunisia/ig;
$line =~ s/, Turkey$/, Turkey\tTurkey/ig;
$line =~ s/, Turkmenistan$/, Turkmenistan\tTurkmenistan/ig;
$line =~ s/, U Arab Emirates$/, U Arab Emirates\tU Arab Emirates/ig;
$line =~ s/, Uganda$/, Uganda\tUganda/ig;
$line =~ s/, U\.K\.$/, U\.K\.\tU\.K\./ig;
$line =~ s/, UK$/, UK\tUK/ig;
$line =~ s/, Ukraine$/, Ukraine\tUkraine/ig;
$line =~ s/, United Arab Emirates$/, United Arab Emirates\tUnited Arab Emirates/ig;
$line =~ s/, United Kingdom$/, United Kingdom\tUnited Kingdom/ig;
$line =~ s/, United States$/, United States\tUnited States/ig;
$line =~ s/, USA$/, USA\tUSA/ig;
$line =~ s/, (\w*?) (\w*?) United States$/, $1 $2 United States\tUnited States/ig;
$line =~ s/, (\w*?) (\w*?) USA$/, $1 $2 USA\tUSA/ig;
$line =~ s/, (\w*?) United States$/, $1 United States\tUnited States/ig;
$line =~ s/, (\w*?) USA$/, $1 USA\tUSA/ig;
$line =~ s/, Uruguay$/, Uruguay\tUruguay/ig;
$line =~ s/, Uzbekistan$/, Uzbekistan\tUzbekistan/ig;
$line =~ s/, Vancou$/, Vancou\tVancou/ig;
$line =~ s/, Vanuatu$/, Vanuatu\tVanuatu/ig;
$line =~ s/, Vatican City$/, Vatican City\tVatican City/ig;
$line =~ s/, Vatican$/, Vatican\tVatican/ig;
$line =~ s/, Venezuela$/, Venezuela\tVenezuela/ig;
$line =~ s/, Viet Nam$/, Viet Nam\tViet Nam/ig;
$line =~ s/, Vietnam$/, Vietnam\tVietnam/ig;
$line =~ s/, Wales$/, Wales\tWales/ig;
$line =~ s/, Yemen$/, Yemen\tYemen/ig;
$line =~ s/, Yugoslavia$/, Yugoslavia\tYugoslavia/ig;
$line =~ s/, Zaire$/, Zaire\tZaire/ig;
$line =~ s/, Zambia$/, Zambia\tZambia/ig;
$line =~ s/, Zimbabwe$/, Zimbabwe\tZimbabwe/ig;
print OUTPUT $line;
            }
    }
close(INPUT); close(OUTPUT);
main();