Select Code to Download

$_ = my $original = "/one/two///three/four/..//fourX/five////six/seven
+";

...
$_ = join( "/", @outpaths );

print "2: $original -> $_\n";

    pop @outpaths or die "Bad path: $original\n";

my @outpath = ();
for my $p ( split m!/+!, $original ) {
...
    }
}
my $goodpath = join "/", @outpath;