in reply to Reading Multiple lines

I tried the following code:
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;
Still have the same problem