#!/usr/bin/perl -w

use Text::CSV;

sub main {
    my $csv = Text::CSV->new();
    while(<>) {
	my $line = $_;
	if (0) {
	    while($line =~ m/\"[^\",]+$/) {
		$line .= <>;
	    }
	}
	my $status = $csv->parse($line);

	die "can't parse: $_" unless $status;
	my @cols = $csv->fields();
	print "$.: ", scalar(@cols), ' ', $cols[17], "\n";
    }
}

main();