my ($LEV, $PRES, $HGHT,  $TEMP, $DEWP, $RH, $DD, $WETB, $DIR, $SPD, $THETA, $THE-V, $THE-W, $THE-E, $W) = split (' ", $line);