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