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

##</code><code>##

 
Wed,Jun,13,01:00:29,2012,777,23,0,15,6,0,0,2
Wed,Jun,13,01:01:29,2012,782,18,0,14,3,0,0,1
Wed,Jun,13,01:02:29,2012,787,13,0,10,3,0,0,0