Help for this page
#! /bin/perl -w ... return \@data; } __END__
<data> <string>1 some stuff</string> ... <string>3 yet more stuff</string> <string>3 enough stuff</string> </data>