in reply to i dont like the way my code looks but work

Maybe you can write the re with something like that:
see Regexp::Common::net
/(server[1-4]) # $1 \s+ (proc [A-Z]+) # $2 \s+ (proc [.] \d+) # $3 \s+ \d+ \s+ ( $RE{net}{IPv4} ) # $4 \s+ .+ \z/xms;

hth,
PooLpi