¿Cómo distingo un archivo de un directorio en Perl?

Estoy tratando de atravesar todos los subdirectorios del directorio actual en Perl y obtener datos de esos archivos. Estoy usando grep para obtener una lista de todos los archivos y carpetas en el directorio dado, pero no sé cuál de los valores devueltos es un nombre de carpeta y cuál es un archivo sin extensión de archivo.

¿Cómo puedo saber la diferencia?

Respuestas a la pregunta(6)

Su respuesta a la pregunta