use strict; 
use warnings; 
use Path::Tiny; 
$| = 1; 
$, = "\n"; 
$\ = "\n\n"; 
 
my $dirpath_root      = path( $0 )->parent; 
my $filepath_keywords = $dirpath_root->child( 'keywords.txt' ); 
my $dirpath_emails    = $dirpath_root->child( 'emails' ); 
 
# convert lines from keywords file into hash. 
my %keywords = map { $_ => 1 } $filepath_keywords->lines( { chomp => 1 } ); 
 
# iterate over each email file in emails directory. 
for my $filepath_email ( $dirpath_emails->children( qr/\.txt$/ ) ) 
{ 
    # read email file and push matching keywords into array. 
    my @matches = grep { exists $keywords{$_} } map { /(\w+)/g } $filepath_email->slurp; 
     
    # print email file and matching keywords. 
    print $filepath_email, @matches; 
}

C:\Users\Bill\forums\guru>type ewh006.pl 
use strict; 
use warnings; 
 
my $email = \do{ my $mail = << 'END_EMAIL' }; 
Here is some 
arbitrary text.  It 
really does not matter much 
what it says -its just email. 
END_EMAIL 
 
my $text = \do{ my $word_list = << 'END_TEXT' }; 
some 
text 
fum 
email 
foo 
END_TEXT 
 
 
open my $TEXT, '<', $text or die "Cannot open text file:$!"; 
my @words = <$TEXT>; 
chomp @words; 
my $re = join '|', @words; 
my $regex = qr/$re/; 
 
 
open my $EMAIL, '<', $email or die "Cannot open email:$!"; 
my $body = do{ local $/ = undef; <$EMAIL>}; 
 
my @matched_words = $body =~ /($regex)/g; 
 
do{local $, = "\n"; print @matched_words;}; 
 
 
C:\Users\Bill\forums\guru>perl ewh006.pl 
some 
text 
email 
C:\Users\Bill\forums\guru>

use strict; 
use warnings; 
use Cwd; 
use Data::Dumper; 
 
my $filepath_keywords = getcwd . '/keywordsb.txt'; 
 
open my $filehandle_keywords, '<', $filepath_keywords or die "cannot open '$filepath_keywords': $!"; 
my @keywords = map { /\)\s*(\w+)/ } <$filehandle_keywords>; 
close $filehandle_keywords; 
 
print Dumper \@keywords;

#!/usr/bin/perl 
#use strict; 
#use warnings; 
#use autodie; 
 
##################################################################################################################### 
 
#Read Phishing Terms Into Array 
 
$phishing_terms = 'C:\Users\HOUSTONE\Desktop\Perl\10X-PHISHING-TERMS.txt'; 
open INFILE, "$phishing_terms";  
@phish_data = <INFILE>;  
close INFILE ; 
 
##################################################################################################################### 
 
#Read EMAIL Into Array 
 
$sample_email = 'C:\Users\HOUSTONE\DESKTOP\Perl\Sample_Email.txt'; 
open INFILE, "$sample_email"; 
@email_data = <INFILE>; 
close INFILE; 
 
##################################################################################################################### 
 
#Matching Keywords 
 
my @strings = @email_data; 
  
my %count; 
  
foreach my $str (@strings) { 
    $count{$str}++; 
} 
  
foreach my $str (sort keys %count) { 
    printf "%-31s %s\n", $str, $count{$str}; 
} 
 
 
 
#####################################################################################################################

#!/usr/bin/perl  
use strict;  
use warnings;  
use autodie;  
  
#####################################################################################################################  
  
#Read Phishing Terms Into Array  
  
my $phishing_terms = 'C:\Users\HOUSTONE\Desktop\Perl\10X-PHISHING-TERMS.txt';  
open INFILE, "$phishing_terms";   
my @phish_data = <INFILE>;   
close INFILE ;  
  
#####################################################################################################################  
  
#Read EMAIL Into Array  
  
my $sample_email = 'C:\Users\HOUSTONE\DESKTOP\Perl\Sample_Email.txt';  
open INFILE, "$sample_email";  
my @email_data = <INFILE>;  
close INFILE;  
  
#####################################################################################################################  
  
#Matching Keywords  
 
my %counts; 
 
foreach my $str (@phish_data) { 
    ( undef, my $keyword ) = split( ' ', $str, 3 ); 
     
    my $count = 0; 
    for my $line (@email_data) { 
        my $count_b = () = $line =~ /($keyword)/ig; 
        $count = $count + $count_b; 
    } 
     
    if ( $count > 0 ) { 
        $counts{$keyword} = $count; 
    } 
} 
   
foreach my $str (sort keys %counts) {  
    printf "%-31s %s\n", $str, $counts{$str}; 
}  
  
  
  
#####################################################################################################################

use strict; 
use warnings; 
use autodie; 
use Data::Dumper; 
 
my $filepath_keywords = 'C:\Users\chris\Desktop\Unorganized\phish\keywordsb.txt'; 
my $filepath_email    = 'C:\Users\chris\Desktop\Unorganized\phish\emails\four.txt'; 
 
open my $filehandle_keywords, '<', $filepath_keywords; 
open my $filehandle_email,    '<', $filepath_email; 
 
my %keywords = map { /\)\s*(\S+)/; lc $1 => 1 } <$filehandle_keywords>; 
local $/; 
my %keywords_b; 
$keywords_b{lc $_}++ for grep { exists $keywords{lc $_} } <$filehandle_email> =~ /(\w+)/g; 
 
close $filehandle_keywords; 
close $filehandle_email; 
 
print Dumper \%keywords_b;