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