$ perl -le 'my @files = (<*>,<.*>); print scalar @files'
48
$ _