To go back to a more traditional answer, what have you tried? What didn't work? It sounds like the trick you need is e Modifiers to evaluate your arithmetic after a match. The examples in Search and replace should give plenty of guidance. Post your code, and I'll post mine.

use Modern::Perl;

while (<DATA>) {
    my (undef, $first, $second, $third, $fourth, $balance) = split /[(
+,]/, $_, 6;
    $first++;
    $second += 3 unless $second == 0;
    $third  += 3;
    $fourth += 10 if $fourth == 55 or $fourth = 56;
    say '(', join ', ', $first, $second, $third, $fourth, $balance;
}


__DATA__
(7, 0, 7, 55, NULL, 0, '', 'Wise Package Studio Overview and its advan
+tage', 1260350867, '203.145.176.177', 0, 0, 0, 0, 197, 0, 0, 0, ''),
(8, 0, 8, 55, NULL, 0, '', 'what is Tarma QuickInstall 2 and its usage
+', 1260351089, '203.145.176.177', 0, 0, 0, 0, 61, 0, 0, 0, ''),
(9, 0, 9, 55, NULL, 0, '', 'what is  Tarma Installer 5 and its usage?'
+, 1260351321, '203.145.176.177', 0, 0, 0, 0, 253, 0, 0, 0, ''),
(10, 0, 10, 56, NULL, 0, '', 'what is Tarma ExpertInstall 3 and its us
+age?', 1260351466, '203.145.176.177', 0, 0, 0, 0, 69, 0, 0, 0, ''),
(11, 0, 11, 55, NULL, 0, '', 'What is Smart Install Maker and its usag
+e?', 1260351588, '203.145.176.177', 0, 0, 0, 0, 241, 0, 0, 0, ''),
(14, 0, 14, 55, NULL, 0, '', 'what is MSI Studio and its use?', 126035
+2667, '203.145.176.177', 0, 0, 0, 0, 174, 0, 0, 0, ''),
[download]

/[(,]/ is a regular expression.

You are right, of course!

CountZero

A program should be light and agile, its subroutines connected like a string of pearls. The spirit and intent of the program should be retained throughout. There should be neither too little or too much, neither needless loops nor useless variables, neither lack of structure nor overwhelming rigidity." - The Tao of Programming, 4.1 - Geoffrey James

So if you're stuck you could show what you already got?

Or do you search for someone you are willing to pay for solving your work?

rajeshatbuzz:

That's really not an advanced question. It's a beginner-level question, so labeling it advanced may prevent many people from viewing it who aren't at an "advanced" level in regular expressions.

...roboticus

When your only tool is a hammer, all problems look like your thumb.

This could be done with regular expressions, but it would be much easier to use split to separate the fields into separate variables. If you insist on using regular expressions, just use the e modifier, so that the replacement pattern is an expression

s{^\(\s*\K([0-9]+)(\s*,\s*)([0-9]+)(\s*,\s*)([0-9]+)(\s*,\s*)([0-9]+)}
 {@{[$1+1]}$2@{[$3&&($3+3)]}$4@{[$5+3]}$6@{[$7==55||$7==56?$7+10:$7]}}
[download]

For tasks like these I often pull out bigger guns, like Parse::RecDescent, which not only does a lot of the regular-expression work for you but also sets the whole thing up in a hierarchical way, and the parser includes a certain amount of built-in “find a way to get there” capability.

To illustrate this point of view, the file appears to consist, at the highest level, of a list of zero-or-more groups, each enclosed by parentheses and each group separated from the next by one comma.   That is the outermost-level description of the file.   The first “inner” description is to say that each group consists of a list of one or more “tokens” separated by commas, where a “token” is either a number or a quoted-string.

Where parsers really start to shine, though, is when you might want to express some sort of rule about, say, the structure of (or, the meaning of...) one of those groups, especially if the structure of a group may vary in some way.   A parser takes as its basic input a formal description of (a grammar for...) what a valid file may consist of, not just physically but structurally, and it seeks to match what it is given to whatever the grammar says that it is to expect.   Exactly like finding your way through an unfamiliar city using a map.

In my experience, messy file-parsing tasks (done without a parser/grammar) can very quickly devolve into “write-only code.”   You might establish that it works correctly now, but you dare not touch it again.   In many shops, exactly such programs can be found in abundance:   mission-critical, and utterly fossilized.