in reply to How do i read each line of the file into string?
undef $/; $file = <>; s/\s*\n/,/s; #catches spaces as well. print; [download]
chomp; print; print ',' while ( <> ); [download]
Jeroen "We are not alone"(FZ)