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

##</code><code>##

UNIQUE ID, NAME, ATTRIBS
UNIQUE ID, NAME, ATTRIBS

##</code><code>##

foreach $line(@file) {
chomp;($creg, $cname, $attribs) = split(/,/);
$object = $blah->new();
$object->creg($creg);
...
}