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

##</code><code>##

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

##</code><code>##

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