ls | perl -nE'chomp; say $_ if -d $_'