in reply to Regex doubt

I do not understand the question. Propably you want change $line to country?? 
$line = 'country';

[download]
Boris

In Section Seekers of Perl Wisdom