#!perl -w
use strict;

undef $/;

my $csv = join(',',split(/\n+/,<DATA>));

print $csv;

my @values = split(/,/,$csv); # hmmm, we had this a couple of lines back

__DATA__
1
2
3

4

5
6