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;
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;