#C:/Dwimperl/perl/bin

#To Open the file

open (MYFILE,"C:/Users/katragas/Desktop/apadmin_get_status_log.txt");
if (grep {/Response Queue Size: 0/} <MYFILE>){
print "Yes, it is\n";
}else{
print "nope, it's not\n";
}
close (MYFILE)