change function structure with perl (regExp)

Hello all
i have some function what looks like this
class.method("servantName").servantMethod(arg1,arg2,arg3)
now i need to convert it to :

class.method("servantName","servantMethod",arg1,arg2,arg3);

is there any wasy way to do that consider that the arg1+2+3 can be also arg1+2+3+4+5+6....
the servantName and servantMethod always need to be the first arguments of the class.method

Depending on the format/syntax of your args, a full regexp may be too complex for this. You probably wish to do the lex'ing first, then reconstruct the replacement string dynamically with the lex'ed tokens.

I don't have much experience in lex'ing. You may start your research here: