Help for this page

Select Code to Download

Select or download this

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