$ perl -Mstrict -Mwarnings -E ;

	my $wordsFH = "woord.txt";
	open(INPUT, $wordsFH) or die "Cannot open $filename";
my %words =
   map {chomp; $_ => 0 }
   <INPUT>;

my $rxWords = do {
   local $" = q{ | };
   qr{(?x) \b ( @{ [ keys %words ] } ) \b };
   };
print "Regex is $rxWords";

	my $textFH = "4.txt";
open (texting, $textFH) or die;

my $text = do {
   local $/;
   <texting>;
   };

$words{$1} ++ while $text =~ m{$rxWords}g;


print "$_ => $words{ $_ }}" for sort keys %words;