Select Code to Download

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

print ("Enter the word to search >> ");
chomp ($word = <STDIN>);
...
    print("@array[0..$#array]\n");
  }
}