do
{   
    # your stuff here
    print "\t\t$path\n";
} while $path =~ s#(?:(^/)|/)[^/]+$#$1?$1:''#e;

##</code><code>##

sub pathtrim {
    my ($path) = @_;
    return '/' if ($path =~ m#^/[^/]+$/);
    $path =~ s#/[^/]+$##;
    return $path;
}