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

##</code><code>##

for (my $done = 0; !$done;) {
  while (<FH>) {
    # stuff
    ++$done && last if substr($_,0,5) eq "\>info";
  }
  # stuff
}