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