grep { $_ ne '.' and $_ ne '..' and -d }