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;

##</code><code>##

Wed,Jun,13,10:40:35,2012,758,42,0,29,11,0,0,2
Wed,Jun,13,10:40:35,2012,29,mod_was_ap22_http.c
Wed,Jun,13,10:41:35,2012,761,39,0,34,5,0,0,0
Wed,Jun,13,10:41:35,2012,34,mod_was_ap22_http.c
Wed,Jun,13,10:42:35,2012,769,31,0,22,6,0,0,3
Wed,Jun,13,10:42:35,2012,22,mod_was_ap22_http.c
Wed,Jun,13,10:43:35,2012,754,46,0,29,17,0,0,0