my @values = $line =~ m{(\d+(?:\.\d*)?)(?=\s*,|\z)}g;