/\.\d+/

##</code><code>##

/\d+$/

##</code><code>##

my @directories = grep { /\d+$/ and -d $_ } readdir DIR;