#!/usr/bin/perl
#use strict;
open(TEXT,"dump.txt")or die("Text not found");

while (<TEXT>) {
    if ( /IP\s+(\d+\.\d+\.\d+\.\d+)(\.(\d+))?\s+>\s+(\d+\.\d+\.\d+\.\d++)(\.(\d+))?\:\s+(\w+)/ ) {
         my ($srcip, $srcport, $dstip, $dstport, $proto) = ($1, $3, $4, $6, $7);
         printf "%16s [%5d] --> %16s [%5d] (%s)\n", $srcip, $srcport, $dstip, $dstport, lc($proto);
    }
}