my $first = ( split /,\s*/, $line, 2 )[0]