OUTER: {
   for (;;) {
      defined( my $_ = <$fh> ) or last OUTER;
      if (/alpha/) {
         f();
         last;
      } else {
         g();
      }
   }

   while (<$fh>) {
      g();
   }
}