perl -ne 'sub BEGIN {$l="";}$l=$_, next unless /ERROR/;print /^[^12]/ ? "$l$_" : $_;$l=$_;' some.log