#!/usr/bin/perl -w
use strict;

my $line = "2006-01-01,Kims,Watson,406,560(centrifuge, refrig.),569,607(dark room),210-211,101(ultracentrifuge),104-105(crystal growth rooms),660(centrifuge, refrig.)";
 
my @tokens = $line =~ m/([^,(]+(?:\([^)]*\))?)/g;

foreach my $token (@tokens)
{
  print "$token\n";
}

__END__
Prints:

2006-01-01
Kims
Watson
406
560(centrifuge, refrig.)
569
607(dark room)
210-211
101(ultracentrifuge)
104-105(crystal growth rooms)
660(centrifuge, refrig.)

##</code><code>##

my @tokens = ($line =~ m/([^,(]+(?:\([^)]*\))?)/g);