open (IN, "<daten.xml") or die $!;
open (OUT, ">daten2.xml") or die "cannot open file : $!";
while (<IN>) {
    encode_entities;
    print OUT;
}
close OUT or die $!;
close IN or die $!;