Here's one way how to change the format of the lines:

#!/usr/bin/perl
use warnings;
use strict;
use feature qw{ say };

$_ = '"", "2.90", "3.00", "3.10", "3.20", "3.30", "3.40", "3.50", "3.6
+0", "3.70", "3.80", "3.90", "4.00", "4.10", "4.20", "5v"';
my $regex  = join ', ', map '"(.*?)"', 1 .. 16;
my $string = join '|',  map qq(<$_>), /$regex/;
say length $string ? $string : $_;
[download]

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,
[download]