Indeed. But we can tidy up a bit:

while( <FILE> )
{
    split;
    print FILE2 join ',' , @_;
    print FILE2 "\n";
}
[download]

Here you see that the perl shorthands improve readibility.

And this even compacts to (trading readability a bit):

print FILE2 join( ',', split )."\n" while <FILE>;

#or
use SuperSplit;
print FILE2 superjoin( ',', supersplit_open( $filename ) );
[download]

Jeroen
"We are not alone"(FZ)