local our @dirs;
m{^(.*?/)(?{ push @dirs, $^N })(?!)};