my @all = glob '* */';
@dirs = grep m(/$), @all;
# etc.