one-liner: print all lines except the last 3?

Question

I would like to simulate GNU\'s head -n -3, which prints all lines except the last 3, because head on FreeBSD doesn\'t have this feature. So I am t

Answer 1

This works with a pipe as well as an input file:

seq 1 10 | perl -e'@x=<>;print@x[0..$#x-3]'