#!/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);