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;
}