my $fn = 'C:/Users/katragas/Desktop/apadmin_get_status_log.txt';
open my $my_file, '<', $fn or die "Cannot open $fn: $!\n";
my $found = 0;
while ( <$my_file> ) {
    if ( /Response Queue Size: (\d+)/ ) {
        $found++;
        my $size = $1;
        print "\nsize: $size\n" if $size ne '0';
    }
}
print "'Response Queue Size' found $found times\n";
close $my_file;