open (DIFFR, "/tmp/log.diff") or die "Could not open ;/tmp/log.diff\n";
my $prev = <DIFFR>;
while (my $curr = <DIFFR>) {
   print "$prev$curr" if $curr =~ /ERROR/;
   $prev = $curr;
}