# ein verzeichnis in perl öffnen
open my $dir, "pfad" or die $!;

# ein verzeichnis iterativ auslesen
while (my $file = readdir $dir) {
    print "File $dir/$file\n";
}

# prüfen, ob ein string mit einem gesuchten String anfängt
if ($string =~ m/^Test123123/) {
    print "$string fängt mit Test123123 an";
}

# prüfen, ob eine datei ein verzeichnis oder eine echte datei ist
if (-f $filename) {
    # datei
}

my $count = () = glob "Test123123*.txt";