open(FILE, $file) or die "Cannot open $file: $!\n";
while(<FILE>) {
chomp;($creg, $cname, $attribs) = split(/,/);
}
close(FILE);