while (<>) {
    last if /pattern/;
    ...
}