sub search_perlvar {
        .
        .
        .
        elsif (/^=back/) {
            last if $found && !$inheader && !$inlist;
            --$inlist;
        }
        .
        .
        .
}

#..........................................................................

sub search_perlfunc {
        .
        .
        .
        elsif (/^=back/) {
            last if $found > 1 and not $inlist;
            --$inlist;
        }
        .
        .
        .
}