my $count = 0;
++$count while $reader->nextPatternMatch($entry_pattern);