$line =~ s/\([^)]+\)//g;
my @results = split /,/, $line;

print "$_: $results[$_]\n" for 0 .. $#results;