#!/usr/bin/perl

use warnings;
use strict;

my $Verzeichnis = "d:\\MeinTest\\";

opendir(DIR, $Verzeichnis) or die $!;
my @files = readdir(DIR);
closedir(DIR) or die $!;

open(AUS, ">Ergebnisse.txt") or die $!;

foreach (@files) {
   if ($_ =~ /init$/) {
      my $file = $_;
      open(FIL, $Verzeichnis.'/'.$_) or die $!;
      while(<FIL>) {
         print AUS "Dateiname: $file hat folgende Werte als Inhalt: $_";
      } # while
   } # if
   close(FIL);
} # foreach

close(AUS) or die $!;

print "\nFertig.\n";

1;