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