in reply to i dont like the way my code looks but work
/(server[1-4]) # $1 \s+ (proc [A-Z]+) # $2 \s+ (proc [.] \d+) # $3 \s+ \d+ \s+ ( $RE{net}{IPv4} ) # $4 \s+ .+ \z/xms; [download]