my @path = '.';
while (<DATA>) {
    chomp;
    my ($prefix, $node) = /^((?:\| )*[|`]-- )(.+)/
        or next;
    $#path = length($prefix)/2 - 1;
    $path[-1] = $node;
    print $prefix, join("/" => @path), "\n";
}

##</code><code>##

my @path = '.';
while (<DATA>) {
    chomp;
    my ($prefix, $node) = /^((?:\| )*[|`]-- )(.+)/
        or next;
    splice @path, length($prefix)/2-1, 0+@path, $node;
    print $prefix, join("/" => @path), "\n";
}

##</code><code>##

my @path = '.';
while (<DATA>) {
    chomp;
    my ($prefix, $node) = split(/(?<=-- )/, $_, 2)
        or next;
    $#path = length($prefix)/2 - 1;
    $path[-1] = $node;
    print $prefix, join("/" => @path), "\n";
}