Select Code to Download

print "\nEnter your words (separated by spaces): >> ";
chomp(my $line = <STDIN>);
...
  <loc>c:\data\snake.xml</loc>
  <words>dog, cat, fish, bird, snake, orange</words>
</MS_3>

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