@names = grep /cyrillic/i, split /^/, do 'unicore/Name.pl';