my @gefunden;
while (my ($tag) = $line =~ /<OrderPosAd(.*?)>/g) {
    my ($merkmal) = $tag =~ / Datum=\"(.*?)\"/;
    push @gefunden, $merkmal;
}