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";
  }
}