#!/usr/bin/perl

use strict;
use warnings;

my @data;
my @line;

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

foreach $line (@data) {
   if ($line =~ /notice/) {
      if ($line =~ /rdy/) {
        $line =~ s/ /,/g;
        my @L1 = split(/notice|[[]|mpmstats:[\t]/, $line);
        foreach $line (@L1) {
           $line =~ s/,,,/,/g;
           print @L1;
           }
        }
     }
  }