my $line_old = $_; my $line = $line_old; my @lines = split (/,/ , $line); foreach my $item (@lines) { do something } $line = join ("," , @lines); ####split does not take the trailing empty element if ($old_line =~ /.*(,+)$/) { $line .= $1; }