my @arr = split(/\),\(/, $str);