my @digit_dirs = grep /^\d+$/, <*>; print join( "\n", @digit_dirs, "" );