Help for this page
#!/usr/bin/perl ... print join "\n", parse_line(",", 1, $s); print "\n";
ci 14938340 ... 17.40 9 "Southern California"