print for sort { 
    local $^W; 
    $a <=> $b
}  grep{ 
    m[^\d+\s]
} map{ 
    m[(^\d+\s+(?:[\d\.]+\s+){3})(.+$)]
} <DATA>;