/pat/ or last while <FOO>;
    print;