$data = "/dirpath";

opendir(DIR,$data) || die "$!";
@files = readdir(DIR);
close(DIR);

$number = 0;

for(@files) {
if($_ =~ /WORDHERE/gi)
{
    $number++;
}

}
print "total = $number\n";