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

##</code><code>##

perl -E'for (<*>) {say $_ if -d $_}'