Select Code to Download

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

my $aoa = [['mouse','rat'],['human','chimp']];
my $aoa2 = ['mouse',['human','chimp']];

my $str = "((mouse,rat),(human,chimp))";
$str =~ s/\(/\[/g;
...
print "$str\n";

my $aoa = eval($str);