Упс! обнаружил, что таким методом появляются конфликты. Это связано с тем, что бОльшая подсеть принадлежит одной стране, а внутри есть две подсети от той же страны и от другой. То есть скрипт нормально работает только для одной страны.
Поэтому общую базу вернул, а русскую оставил новую.
Спасибо за скрипт! только там одна мелкая ошибка, почти в конце надо земенить:
print $string,"\n"; на print $string," $country\n";
прогнал базу. в итоге общая сократилась с 165800 сеток до 117327 (уменьшение базы с 3.4МБ до 2.4МБ) русская сократилась с 6117 адресов до 2232 (уменьшение базы с 120КБ до 44КБ)