perl -ne 'if ( $flag ) { $flag++; $flag %= 3; } if ( m/error/ ) 
{ $flag = 1; } print $., q{: }, $_ if ( $flag );' <filename>