Hi hyans.milis,

When parsing a CSV file use tested modules like Text::CSV_XS or Text::CSV, it's a lot better than re-inventing the wheel.
However, using your method, you can achieve your aim by using non-greedy regex in your if/elsif statement blocks and putting your variables $sum2 and $sum3, in the proper place like so: 

   ...
    if ( $sum > 310 ) {
        my $sum2 = "volemd";
        #chomp($sum2);  not needed
        $line =~ s/(.*?)\,(.*?)\,(.*?)\,(.*?)\,(.*?)\,(.*?)/$1\,$2\,$3
+\,$sum2,$5,$6/g;
    }
    elsif ( $sum == 70 ) {
        my $sum3 = "volemd1";
        #chomp($sum3);  not needed
        $line =~ s/(.*?)\,(.*?)\,(.*?)\,(.*?)\,(.*?)\,(.*?)/$1\,$2\,$3
+\,$sum3,$5,$6/g;
    }
 ...

[download]
That should give you your expected result: 
623192729079,510993192729079,19,volemd,0,133,282051608,
623192728769,510993192728769,19,310,0,118,84950715,
623192729901,510993192729901,19,volemd1,0,
623192609007,510993192609007,19,22,0,
623416771429,510993416771429,19,volemd1,0,
622319309157,510992319309157,19,22,0,
623192724581,510993192724581,19,volemd1,0,
622319381619,510992319381619,19,volemd1,0,
622198575655,510992198575655,19,1,0,
623192724589,510993192724589,19,volemd1,0,
622743581281,510992743581281,19,71,0,

[download]
Update:
Always close your open filehandles like so: close $fh or die "can't close file: $!";

If you tell me, I'll forget.
If you show me, I'll remember.
if you involve me, I'll understand.
--- Author unknown to me

In reply to Re: replace/substituion 4th field by 2teez
in thread replace/substituion 4th field by hyans.milis

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.