last

El comando last produce la salida del bucle:

    LINE: while (<STDIN>) {
        last LINE if /^\s*$/;      # exit when done with header
        ...
    }