sub findLines;
	foreach $line (@data) {
		if ($line =~ /notice/) {
			if ($line =~ /rdy/) {
				$line =~ s/ /,/g;	
				@L1 = split(/|notice|[[]|,mpmstats:,|[\t]|rdy,|bsy,|rd,|wr,|ka,|log,|dns,|cls,/, $line);					
				return @L1;		
						}
					}
				}