while (<> and !/pattern/) {}

##</code><code>##

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