OUTER: for (;;) {
  while (<FH>) {
    # stuff
    last OUTER if substr($_,0,5) eq "\>info";
  }
  # stuff
}