#Prüfung: Angaben können mehrfach vorhanden sein
          # $line hält den Inhalt einer XML-Datei 
          # in eine Zeile zusammengeschrieben

           my $foo = $line;

           for my $bar ( $foo =~  /<AdPubDate(.*?)>/g ) {           
            my ($merkmal) = $bar =~ /Date=\"(.*?)\"/;
            
            #Hier Überprüfung jedes Merkmals
            
           };