LOOP: {
   defined( my $_ = <$fh> ) or last;

   if (/alpha/) {
      f();
      redo;
   }

   for (;;) {
      g();
      defined( $_ = <$fh> ) or last;
   }
}