$_ = "TestVar(Test1->(xy))->Var2(Test2(10)(12))->Finalvar";
1 while (s/\([^()]*\)//g);
print;