perl -e 'print ((<>)[0..4])' filename

##</code><code>##

head -5 filename