Como faço para distinguir um arquivo de um diretório em Perl?

Estou tentando percorrer todos os subdiretórios do diretório atual em Perl e obter dados desses arquivos. Estou usando o grep para obter uma lista de todos os arquivos e pastas no diretório fornecido, mas não sei qual dos valores retornados é um nome de pasta e qual é um arquivo sem extensão de arquivo.

Como posso saber a diferença?