$/ = "\n"; #default value
$file=<DATA>; #gets one line
@file=<DATA>; #gets all lines, each line in one value
print "$file\n\n";
print join "|", @file;
__DATA__
1,2,3
4,5,6
7,8,9

##</code><code>##

1,2,3


4,5,6
|7,8,9
##</code><code>##

1,

2,|3
4,|5,|6
7,|8,|9