$_ = until !defined($_) || /^(\* Menu:|\037)/; return %header unless /Menu/; ##

##

$_ =  until !defined($_) || /^(\* Menu:|\037)/;
return %header unless defined and /Menu/;

##

##

$_ =  until !defined($_) || /^(\* Menu:|\037)/;
return %header unless defined and index($_, 'Menu') >= 0;

##

##

my $menu;
$_ =  until !defined($_) || ($menu = /^\* Menu:/) || /^\037/;
return %header unless $menu;