my $path='/foo/bar';
my @dirs=split(/\//,$path);
$"='/'; $\="\n";
while (@dirs) {
    my $str="@dirs" || "/";
    print $str;
    pop @dirs;
}
[download]

outputs

/foo/bar
/foo
/
[download]

Yves