while (defined($_ = <>) and !/pattern) {}