@ARGV == 2 or die "usage: $0 input_file output_file\n"; open OUTFILE, '>', "$ARGV[1]temp.csv" or die "Cannot open '$ARGV[1]temp.csv' $!"; open INFILE, '<', $ARGV[0] or die "Cannot open '$ARGV[0]' $!"; while ( ) { chomp; $\ = /"$/ ? "\n" : ' '; print OUTFILE $_; } close INFILE; close OUTFILE;