my ($parent) = $path =~ /([^\/]*)\//;