Select Code to Download

# make a global array for storage
my @array;
...
       # or use a concated string
        $storage_string .= $buf;   # concantates $buf onto end of stri
+ng
    }

$/ = '';  # change output separator to nothing instead of newline
print   @array, "\n";

my @lines=split( /\n/, $storage_string);
print "@lines\n";
...
# or since $storage_string contains embedded newlines, just printing i
+t would work
print "$storage_string\n";