my $new_line = join ',', @parts;