Select Code to Download

my @path = '.';
while (<DATA>) {
...
    $path[-1] = $node;
    print $prefix, join("/" => @path), "\n";
}

my @path = '.';
while (<DATA>) {
...
    splice @path, length($prefix)/2-1, 0+@path, $node;
    print $prefix, join("/" => @path), "\n";
}

my @path = '.';
while (<DATA>) {
...
    $path[-1] = $node;
    print $prefix, join("/" => @path), "\n";
}