perl -E'say "$_: ". -M for grep {-d && /\/\d{4}$/} glob("/var/lib/testverzeichnis/Projekte/Projektenummern/*/*")'