Help for this page
>perl -wMstrict -le "my $s = 'TestVar(Test1->(xy))->Var2(Test2(10)(12))->Finalvar'; ... print qq{'$s'}; " 'TestVar->Var2->Finalvar'