Select Code to Download

my($key,$value1,$value2,$value3) = $line =~ /(\w+),(\d+.\d+),(.\d+\s+\
+d+.\d+.)/g; 

my($key,$value1,$value2,$value3,$value4,$value5,$value6,$value7) = $li
+ne =~ /(\w+|\S+),(\d+),(\d+),(\d+),(\d+.\d+),(\d+.\d+),(\d+),(\d+.\d+
+)/g ;

my($key,$value1,$value2,$value3) = ($line =~ /(\w+),(\d+.\d+),(.\d+\s+
+\d+.\d+.)/g); 

my($key,$value1,$value2,$value3,$value4,$value5,$value6,$value7) = ($l
+ine =~ /(\w+|\S+),(\d+),(\d+),(\d+),(\d+.\d+),(\d+.\d+),(\d+),(\d+.\d
++)/g);