$_ = <INFO> until !defined($_) || /^(\* Menu:|\037)/;
 return %header if !defined($_) || /^\037/;

##</code><code>##

while (<INFO>) {
    last if /^\* Menu:/;
    return %header if /^\037/;
}
return %header unless defined $_;

##</code><code>##

do { 
   $_ = <INFO>; 
   return %header if /^\037/ || ! defined $_ 
} until /^\* Menu:/ ;