D:\>perl -e "print <*.*>"
$ perl -le 'print join"\n", grep{! -d $_}<*>'
perlでファイルだけを表示してみる。ポイントはファイルテスト演算子を使ってファイルかディレクトリかをチェックするということ。ディレクトリ以外をファイルと思って処理してみる。昔書いていたものでは不十分とわかったので。
D:\>perl -e "print <*.*>"
$ perl -le 'print join"\n", grep{! -d $_}<*>'