1
2
3
4
5
6
7
8
9
10

##</code><code>##

1,2,3,4,5,6,7,8,9,10

##</code><code>##

cat file | perl -e "while (<>) { push @a; } ; print join(',',@a);"