my $got_alpha;
while (<FILE>) {
  unless ($got_alpha) {
    if (/alpha/) {
      #...alpha code
      $got_alpha++;
      next;
    }
  }
  # ...more code
}