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);