#!/usr/bin/perl

use strict;
use warnings;

my @data;
my $line;
my %hashTemp;

open(FH, "error_log");
@data = <FH>;

foreach $line (@data) {
	if ($line =~ /notice/) {
		if ($line =~ /rdy/) {
			$line =~ s/ /,/g;	
			my @L1 = split(/|notice|[[]|,mpmstats:,|[\t]|rdy,|bsy,|rd,|wr,|ka,|log,|dns,|cls,/, $line);	
			%hashTemp = map { $_ => 1 } @L1;
			print @L1;
				}
			}
		}