下記のようにすると、ディレクトリ内のファイルを列挙するときに、ファイルの種類がテキストであるものだけを抽出することができます。
for (glob '*') { print "$_\n" if -T; }
