$ perl -e "print '-> ', join '|', glob('*');"
-> aaaa|bbbb|cccc

$ perl -e "print '-> ', join '|', glob('.*');"
-> .|..|.dddd|.eeee|.ffff

$ perl -e "print '-> ', join '|', glob('* .*');"
-> aaaa|bbbb|cccc|.|..|.dddd|.eeee|.ffff

##</code><code>##

$ perl -e "opendir DIR, '.'; print '->', join '|', readdir(DIR);"
->.|..|aaaa|bbbb|cccc|.dddd|.eeee|.ffff