perl -e "@l = <>; print 'first : ', $l[0], 'last  : ', $l[$#l];" filename

##</code><code>##

perl -e "$first = <>; while($line = <>) { $last = $line; }; print 'first : ', $first, 'last  : ', $last;" filename