# example from perldoc -f last
LINE: while (<STDIN>) {
    last LINE if /^$/;	# exit when done with header
    #...
}