foreach (@lines) {
  if(/(\w+)\s+(\w+:\w+)\s+(\d+\.\d+\.\d+\.\d+):\w+\s+(\w+)/) {
    $protocol = $1;
    $localAddress = $2;
    $foreignAddress = $3;
    $state = $4;
    print "$protocol, $localAddress, $foreignAddress, $state\n";
  }
}

##</code><code>##

  open NETSTAT, "$program|" or die "Cannot open netstat $!\n";
  while (<NETSTAT>) {
    if(/(\w+)\s+(\w+:\w+)\s+(\d+\.\d+\.\d+\.\d+):\w+\s+(\w+)/) {
      print "$1, $2, $3, $4\n";
      # protocol, localAddress, foreignAddress, state
    }
  }