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/; }
HTH - mrbbking