my $directory = '../htdocs/archive/';

my $prefix = 'Arch';
my $suffix = 'php';

my $dir;
opendir $dir, $directory or die "$directory $!";
while (my $entry = readdir $dir) {
        next if $entry !~ m/^$prefix/;  # Prefix doesn't match => next filename
        next if $entry !~ m/$suffix$/;  # Sufffix doesn't match => next filename
        print $entry,"\n<br>";
        
	my $entry_file;
        # Datei in Verzeichnis öffnen
	open ($entry_file, '<', "$directory/$entry") or die "$entry_file $!";
        print "<h1>";
        print <$entry_file>;
        print "</h1>";
        close $entry_file;
}
closedir $dir;