my @LOGDIR = <*>;
foreach my $DIR(@LOGDIR) {
if($DIR =~ m/([\d])/){
print "$DIR\n";
}
}