open(FH, "error_log:);
@data = <FH>
foreach $line (@data) {
		if ( ($line =~ /notice/)) {  
				$line =~ s/ /,/g;	
				my @L1 = split(/|notice|\[|\]|,mpmstats:,|\t|rdy,|bsy,|rd,|wr,|ka,|log,|dns,|cls,|bsy:,|in,|/, $line);
				$line =~ s/|notice|\[|\]|,mpmstats:,|\t|rdy,|bsy,|rd,|wr,|ka,|log,|dns,|cls,|bsy:,|in,//g;					
				print $line;