Help for this page
#!/usr/bin/perl ... some text some more text yet some more text
my @data = <DATA>; foreach (@data) { ... foreach (@data) { print; }