my $directory = '/path/';
opendir my $dirhandle, $directory or die $!;
while( my $entry = readdir $dirhandle ) {
    next if $entry !~ /(\w{3}\d{8})\.txt\z/;
	my $id = $1; #ich speichere hier meine id um dann sie zu verwenden
	open(FILE,$entry); # jetzt mache die datei auf
	open(FULL, ">fulltexts/${id}_f.txt"); fürs schreiben öffnen
	binmode(FULL, ":utf8"); #output in utf8
	while ($line3 = <FILE>) {
		chomp($line3);
		$full = get $line3;
		$full =~ s/(\<|\>|\&)//g; #substitute (<|>|&) for a valide XML file
		print FULL $fulltext;
	}
}