@thermos = split (/\s+/, $data_line);