my $Verzeichnis = 'Sequenzen/';
my $out_dir='Paarungen/';
opendir(DIR, $Verzeichnis) || die "$Verzeichnis: $!";
my @Dateien = readdir(DIR);
foreach(@Dateien) 
{
	if($_ =~ /\.txt$/) 
	{
		open(my $fh,"$_") or die $!;
		$line = $_;
		chomp ($line);
	
		if ( ($line =~ /^([A-Z]+ (\W){1} [A-Z]+)/g))
		{	
			$line =~ s/\s+//g;
			$line =~ s/\+//g;
			if ( ($line =~ /(Line1andLine2)/g))			
			{	
				print $1 . "\n";
	# Ausgabe in Datei
				my $outpath="$out_dir/h.txt";
				if(open(my $fh, '>>', $outpath))
				{ 
					printf $fh ("$line .\n"); 
				}
				else
				{ 
					warn("Error open $outpath ($!)"); 
				}
	 close $fh;	
			}
		} 
	} 
}