#!/usr/local/bin/perl

use warnings;
use strict;

my $line = "2006-01-01,Kims,common,406,560(centrifuge,refrig.),569b,607(dark room),210-211,101(ultracentrifuge),104-105(crystal growth rooms),660(centrifuge,refrig.)";

my @fields;
push @fields, $1 while $line =~ /([^,(]+(?:\([^)]*\))?)/g;

my $i = 1;
print join(', ', map { $i++.": $_" } @fields),"\n";