sub search_perlvar {
        .
        .
        .
        elsif (/^=back/) {
            --$inlist;
        }
        .
        .
        .
}

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

sub search_perlfunc {
        .
        .
        .
        elsif (/^=back/) {
            --$inlist;
        }
        .
        .
        .
}