my ($parent) = "/dir1/dir2/dir3/ .. /dirLast//" =~ m#^(.*)/.*?//$#;