my $first_line = <RAW>;
close RAW or die "closing raw input: $!";

chomp $first_line;
my $first_field = split m{ , \s* }xms, $first_line;
print "$first_field\n";