Quote

my @content;
open my $fh, 'datei.txt' or die "datei.txt";
{
local $/ = "\n\n";
while ( my $block = <$fh> ) {
# alle Umbrüche in Block entfernen
$block = tr/\r\n//d;
push @content, $block;
}
}
close $fh;

Quote

my @content;
open my $fh, 'test2.xml' or die "test2.xml";
{
local $/ = "\n\n";
while ( my $block = <$fh> ) {
# alle Umbrüche in Block entfernen
$block = tr/\r\n//d;
print $block; ####Geht das nicht?
push @content, $block;
}
}
close $fh;

open(EXPORTDFSFILE2,">exporttest2.xml");
select (EXPORTDFSFILE2);
print @content;
close(EXPORTDFSFILE2);