perl -ne "print and last;" filename.txt