$file = 'testfile';
open(file_info,$file) or die "Can't open $file : $!";
while (<file_info>) {
my ( $src_ip, $src_port ) = /IP\s+(\d+\.\d+\.\d+\.\d+)\/(\d+)/;
my ( $dst_ip, $dst_port ) = />\s+(\d+\.\d+\.\d+\.\d+)\/(\d+)/;
print "$src_ip $src_port $dst_ip $dst_port \n";
}
close(file_info)