opendir(DIR,$dir) or die $!;
my @dirs = grep{-d $dir.'/'.$_ && $_ =~ /^\d{4}$/}readdir(DIR);
closedir(DIR);