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