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