#!/usr/bin/perl

use strict;
my @lines;

sub flush {
        return unless grep(/'Errors'/, @_);
        print "Got:\n\t", join ("\t", @_), "\n";
}

while (<>) {
        # trigger on last line of an error message
        flush(@lines,$_),@lines=(),next if m{^\s*\};\s*$}; 
        # triggger on next timestamp
        flush(@lines),   @lines=()      if m{^\s*\[\d\d\d\d\/};
        push(@lines, $_);
}
flush(@lines);