dir /b | perl -ne ...