use File::Find::Rule;

print "total = ", scalar find(
  file     =>
  maxdepth => 1,
  grep     => qr/WORDHERE/,
  in       => $data
);