Select Code to Download

my $bof_DATA = tell DATA; # Save the location of DATA BOF.
my @slurp = <DATA>;       # Read in the DATA segment.
...
                          # DATA segment.
local $, = ", ";
print <DATA>, "\n";       # Run through DATA a second time.