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