($JUNK, $user, $JUNK) = split (/\s+/, $data_line);
...
($user, $IP, $machine, $VER, $JUNK, $PID, $JUNK, $SDAY, $SDATE, $start_time) = split (/\ /, $data_line);