#!/usr/bin/perl   
   
 open FILE,"keywords.txt" or die $!; 
   
# read file into an array  
  
 my @data = <FILE>;  
 
my @values = join("\n",@data), "\n"; 
 
close (FILE);  
  
open FILE,"Skypelogs.txt" or die $!; 
 
# read file into another array 
 
my @array = <FILE>; 
 
$found; 
 
foreach my $var (@values)  
 { 
 foreach my $line(@array) 
 { 
 if(grep($var, $line)) 
 	{ 
 $found .= $line. "\n"; 
 		 }   
	} 
  print $found;  
 } 
 
# close file  
  
 close (FILE);