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

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

opendir DIR, $directory or die $!;
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>";
}
closedir DIR;

open my $entry_file, '<', $entry or die $!;
print "<h1>";
print <$entry_file>;
print "</h1>";
close $entry_file;