chomp $line;
 
  my @fields = split "," , $line;

  ...

 print join( ',', @fields ) . "\n" ;