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

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