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