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