($junk, $submit_values) = split(/Submitted,\"/, $first_line);

##</code><code>##

696,028","50,946","810,590","836,505","13,923,241","13,776,443","14,179,619","14,614,558","14,704,885","14,634,911","15,055,774"
,"15,127,534","14,458,899","14,403,378","14,566,425","14,644,406","14
,524,069"

##</code><code>##

my @values = split(/\",\"/, $submit_values);
foreach my $v (@values) {
print $v;
}