my $count = grep{ /\b$query\b/ } $_;