#!/usr/bin/perl

use warnings;
use strict;

my $pfad = "C:\\Lokale_Daten\\test\\";
opendir(my $fhDir, $pfad) or die $!;
my @files = grep { $_ !~ m/^\.{1,2}$/ } readdir($fhDir);
closedir($fhDir) or die $!;

my $pfadZiel = "C:\\Lokale_Daten\\SNNHUB01";
my $gefunden;
foreach (@files) {
   my $dateiEin = $pfad.$_;
   open(my $fhFiles, $dateiEin) or die $!;
   while(my $zeile = <$fhFiles>) {
      $gefunden = "";
      if ($zeile =~ m/SNNH-UB01-002/) {
         $gefunden = "X";
         last;
      } # if
   } # while
   close($fhFiles);
   system "move $dateiEin $pfadZiel" if $gefunden eq "X";
} # foreach

print "Fertig.\n";