Select Code to Download

#!/usr/bin/perl

...

print join "\n", parse_line(",", 1, $s);
print "\n";

ci
14938340
...
17.40
 9
"Southern California"