Just want to add that probably you want to use Locale::SubCountry. And BTW please do localize $_ in your module. See while(<>) { ... } considered harmful why.

--
Ilya Martynov, ilya@iponweb.net
CTO IPonWEB (UK) Ltd
Quality Perl Programming and Unix Support UK managed @ offshore prices - http://www.iponweb.net
Personal website - http://martynov.org