use strict;
use warnings;
system "cls";

my $name;
my $verzeichnis="D:\\perl\\configdt";
opendir VH, $verzeichnis
    or die "Kann $verzeichnis nicht oeffnen: $!";
while ($name= readdir VH){
    if ($name =~/config\.[0-9]{4}/i){
        print $name,"\n";
    }
}