Select Code to Download

while (<FILE>) {
my ($one,$two,$three..etc)=split(/,/);

}

##!/usr/bin/perl
use DBI;
...
$sth->execute();
    while ($sth->fetch()) {$i++;};
    print ": $i \n";

wc -l ofphl

map ( {s/\"(.*)\"/$1/;$_}) split(/,/)