my $num = qr/[\d.]+/;
if ($line = m/^([^,]+),([^,]+),$num,$num,$num,$num,,$num,$num,$num,$num,,$num,$num,$num,$num/) {