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

}
close(file_info);