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

##</code><code>##

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

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