undef $/;
$file = <>;
s/\s*\n/,/s;  #catches spaces as well.
print;

##</code><code>##

chomp; print; print ',' while ( <> );