#!/usr/bin/perl
use Data::Dumper;

open(FH,"<abc.txt")or die EXPR;
	 
while (<FH>) {
    
   my @words = split(/ /,$_);
   
   foreach (@words) {
	
	if ($_=~/from:(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})/) {
       
	    print "$1- \n";
	  
    }elsif ($_ =~/to:(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})/){
	   
	   print "$1 \n";
	   
	   
   }
   
   
   }
}

close (FH);


##</code><code>##

hshhhgljlkjglgkjj from:198.18.66.5 aegighighighilg to:198.18.66.6 iiufduifuiuih from:198.18.66.7
hiihhj to:198.18.66.8 hhouhoho from:198.18.66.9 igilgojhjh to:198.18.66.10 igighliho
from:198.18.66.11 highighioouhouhhhoh  to:198.18.66.12


##</code><code>##


198.18.66.5 ,198.18.66.6
198.18.66.7 ,198.18.66.8
198.18.66.9 ,198.18.66.10
198.18.66.11 ,198.18.66.12