Select Code to Download

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

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

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