$n = () = '((1,2)(b,c)' =~ /[()]/g; 
print $n;