Select Code to Download

while (@data = <DATA>) {
    ...
}

for($i=0;$i<$#data;$i++){

for my $line (@data) {

my @tokens;
while (<DATA>) {
...
    }
}
print join( ',',@tokens),"\n", @tokens = () if @tokens;