print "\nEnter your words (separated by spaces): >> ";
chomp(my $line = <STDIN>);
my @words = split /\s+/, $line;
				
foreach $word(@words)
{
  if()
  {
   #Set a condition to match more than one word, i.e to match combination of multiple words
  }
  else
  {
   open(FH, $kwords)&& open(MN, ">>$sResult") || die ("Cannot open [$kwords,$sResult], $!\n");
   print RESULT "==============================\n";
   print RESULT "\t	", uc($word),"\n";
   print RESULT "==============================\n";
   {
     local $/=undef;
     print RESULT grep { $_ =~ /$word/i } <SEARCH> =~ m!(<MS_\d+>.*?</MS_\d+>)!gs;
   }
   print MN "\n";
  close MN;
  close FH;
  }
__DATA__
<MS_1>
  <loc>c:\data\cat.xml</loc>
  <words>dog, cat, fish, bird</words>
</MS_1>

<MS_2>
  <loc>c:\data\cow.xml</loc>
  <words>dog, cat, fish, bird, cow, goat</words>
</MS_2>

<MS_3>
  <loc>c:\data\snake.xml</loc>
  <words>dog, cat, fish, bird, snake, orange</words>
</MS_3>

##</code><code>##

<MS_4>
  <loc>c:\data\fat.xml</loc>
  <words>snail, cat, eagle, fly, chicken, elephant</words>
</MS_4>