use strict;
use warnings;

open (IN, 'myfile.txt') or die $!;
my @lines = <IN>;
my $cnt = 0;

for my $line (@lines) {
    if ($line =~ /somekeyword/) {
        $cnt++;
    }
}
print ("somekeyword was found in $cnt lines\n");