Select Code to Download

#!/usr/bin/perl

...
some text
some more text
yet some more text

my @data = <DATA>;
foreach (@data) {
...
foreach (@data) {
    print;
}