open (OUTFILE, '> '.$ARGV[1].'temp.csv')or die $!;
open (INFILE, $ARGV[0])  or die $!;
while (<INFILE>)
{
	chomp;
	if($_ !~ /"$/){
		$_=~ s/[\n\r]//g;
		while($_ !~/"$/){
			$test = <INFILE>;
			$test =~ s/[\n\r]//g;
			$_ = $_." ".$test;
		}
		$_ = $_."\n";
		}
	print 	OUTFILE $_;
	}
}
close (INFILE);	 
close (OUTFILE); 
exit;