c:\data\cat.xml dog, cat, fish, bird c:\data\cow.xml dog, cat, fish, bird, cow, goat c:\data\snake.xml dog, cat, fish, bird, snake, orange ##

##

print ("Enter the word to search >> ");
chomp ($word = );
my $listen = 0;
open(SEARCH, "<$kwords")
while ()
{
  chomp;
  @array = ();
  foreach($_ =~ /\/../\<\/MS_$listen\>/;
  if ($_ =~ /$word/i)
  {
    print("@array[0..$#array]\n");
  }
}