my $count = 0;
for (@chunks) {
   $count++ if $str =~ $_;
}