my $str = "((mouse,rat),(human,chimp))";
my $str2 = "(mouse,(human,chimp))";