in reply to Re^2: perl one liner to print a line
in thread perl one liner to print a line

I can save another character if we reintroduce whitespace:
perl -ne'$.-4or print,last'
or almost identically:
perl -ne'$.<4or print,last'

Update:

perl -nlE'$.<4or say,last' 123456789 123456789 1 21