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