#!/usr/bin/perl

use strict;
use warnings;

main (@ARGV);

sub main
{
	open(FH, "error_log");
	while (my $line = <FH>){
		if ($line =~ m/notice/){
			if ($line =~ m/rdy/){
				print $line;
			}
		}
	}
		close FH;
}