...
$tab++;
my @list;
for my $line (@{$section}) {
    my $line = convert_string($line, $line_magic);
    
    if( $line =~ /^[*#]+ / ) {
        push @list, $line;
        next;
    } else {
        process_list( @list ) if @list;
        @list = ();
    }
    line($tab, $line),     next if $line =~ /^</;
    ...