my @all = glob '* */'; @dirs = grep m(/$), @all; # etc. [download]
In reply to Re^7: tree command by choroba in thread tree command by Skeeve