#!/usr/bin/perl
use strict;
use warnings;
my $file = shift;
my ($cpu,$mem,$port,$ip);
open FH, "<", $file or die "can't open file $file: S!";
open FT, ">", "txt";
while (<FH>) {
    s/^\s+//;
    my @s = split /\s+/, $_;
    ($cpu, $mem) = ($s[8], $s[9]);
    if (/port\s+(\d+)\s+\+ip\s+([\d\.]+)\s+/) {$port = $1; $ip = $2;}
    print FT "$cpu\t$mem\t$port\t$ip\n";
}
close FT;
close FH;

> записывались в текстовый файл, к примеру с названием вида IP:PORT.txt(etc)

ip/port же различные