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

close (FILEHANDLE);	 
close (MYFILE); 
exit;