Help for this page
my @arr = split(/\),\(/, $str);
#!/tools/bin/perl ... (1,"(text)", 123 2,"(string)", 234 ...)