#!/usr/bin/perl -w
use strict;

open my $f, "keywords.txt" or die "keywords.txt: $!\n";
chomp(my $kw = join '|', split /\s*,\s*/, <$f>);
close $f;

my $re = qr/$kw/i;

open my $s,"Skypelogs.txt" or die "Skypelogs: $!\n";
while (<$s>){
    print if /$re/;
}
close $s;