#!/usr/bin/perl -w

use strict;

my $Verzeichnis = "/usr/web/ars_vivendi";
opendir(DIR, $Verzeichnis) || die "$Verzeichnis: $!";
my @Dateien = readdir(DIR);
foreach(@Dateien) {
 if($_ =~ /.+\.txt*/) {
   open "$_";
   }
};