Select Code to Download

#! /bin/perl -w

...
        return \@data;
        }
__END__

<data>
  <string>1 some stuff</string>
...
  <string>3 yet more stuff</string>
  <string>3 enough stuff</string>
</data>