11.000 Narubu
130.020 Bloodhound
19.221 schwerer ??????????????
879 Finur
  
my $re = qr/  
   [1-9]           # beginnt mit 1-9  
   \d{0,2}         # gefolgt von optional weiteren 2 \d  
   (?:\.\d\d\d)*   # gefolgt von beliebig vielen Gruppen von .ddd,  
                   # nicht speichern  
   \s              # gefolgt von genau einem Whitespace  
   (?!            # Negative: Lookahead Assertion:  
                   # schau, dass das folgende NICHT ist  
     \b            # wordboundery  
     (?:  
      von  
     |  
      Anfragen?  
     |  
      CEST  
     |  
      Millisekunden?  
     )  
     \b              # wordboundary  
   )  
  
   [A-Z][A-Za-z]+    # Ein Wort, das mit Grossbuchstaben beginnt  
   /x;  
  
while( $string =~ /($re)/g){  
  print $1, "\n";  
}  
Übersetzung in eine Sprache deiner Wahl ist deine Übung.
mfg Beat
 nicht angemeldet
 nicht angemeldet