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

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