perl -ne 'print @t if /foo/; push @t,$_; shift @t if $#t>5' file

##</code><code>##

perl -ne 'print @t if /foo/; @t=(@t[1..4],$_)' file