Wie unterscheide ich eine Datei von einem Verzeichnis in Perl?

Ich versuche, alle Unterverzeichnisse des aktuellen Verzeichnisses in Perl zu durchlaufen und Daten aus diesen Dateien abzurufen. Ich verwende grep, um eine Liste aller Dateien und Ordner im angegebenen Verzeichnis abzurufen, weiß jedoch nicht, welcher der zurückgegebenen Werte ein Ordnername und welcher eine Datei ohne Dateierweiterung ist.

Wie kann ich den Unterschied erkennen?