Select Code to Download

#! /bin/perl -w
use strict;
...
  <string>3 enough stuff</string>
</data>
</root>

Data node 1
   1 some stuff
...
   3 some more stuff
   3 yet more stuff
   3 enough stuff