Shell Programming and Scripting

1) 1,b2,c3,d4,e5,f6,here comes the line feed ,g8,h9,i10
                    this is pushed to second line 
 
the output is :
 
1,b2,c3,d4,e5,f6,here comes the line feed
this is pushed to second line , g8,h9,i10

 awk -F"," '{if(NF>7){for(i=8;i<=NF;i++){a=a","$i;$i=""};NF=7;print $0;getline;gsub(/^ */,"");OFS="";print $0,a}else{print $0}}' OFS="," file.csv

use Text::CSV;  
   
my $csv = Text::CSV->new({binary=>1});  
   
#NOTE: Replace input.txt with your actual filename  
open(my $in, "<input.txt") or die "input: $!\n";  
   
#NOTE: Replace output.txt with the name you want for your new file  
open(my $out, ">output.txt") or die "output: $!\n";  
   
while(my $colref = $csv->getline ($in)) {  
        s/[\r\n]//g foreach (@$colref);  
        $csv->combine(@$colref);  
        print $out $csv->string . "\n";  
}  
close($in);  
close($out);