$. < $lines - 2 and print while <F>