#!/usr/bin/perl
use strict;
use warnings;

my $Verzeichnis = 'Sequenzen/';
my $out_dir='Paarungen/';
my $out_file='h.txt';

open(my $out_fh, '>>', $out_dir.$out_file) or die "$out_dir$out_file: $!";

opendir(my $dir_fh, $Verzeichnis) or die "$Verzeichnis: $!";
while(my $file_name=readdir($dir_fh))
{
  next if (!-f $Verzeichnis.$file_name);
  next if ($filename !~ /\.txt$/);

  open(my $in_fh, '<', $Verzeichnis.$file_name) or die "$Verzeichnis.$file_name: $!";
  while(my $line=<$in_fh>)
  {
    chomp ($line);
    next if ($line !~ /^([A-Z]+ (\W){1} [A-Z]+)/g);
    $line =~ s/\s+//g;
    $line =~ s/\+//g;
    next if ($line !~ /Line1andLine2/);

    print "Line1andLine2\n";

    # Ausgabe in Datei
    print $out_fh "$line .\n";
  }
  close($in_fh);
}
closedir($dir_fh);

close($out_fh);