in reply to finding whole words in a string

Look for word breaks: 
#!/usr/bin/perl -w
use strict;
foreach  (qw(india  indian  indiana)){
    print if /\bindia\b/;
}

[download]
HTH - mrbbking

In Section Seekers of Perl Wisdom