sub get_parents {
	my (@p, $o);	
	for (split ("/",$_[0])) {push(@p,"$o/$_");$o.="/$_"}	
	return \@p;
}

##</code><code>##

  perl -e '$p="foo/bar/rab/oof";for (split ("/",$p)) {push(@p,"$o/$_");$o.="/$_"} print join("|",@p);'

##</code><code>##

print join(" ", map { sprintf "%#02x", $_ }unpack("C*",pack("L",0x12345678)))