Reguläre Ausdrücke

[CPAN]

Dann machst du was falsch. Es ist getestet und funktioniert.

$ cat daten
Alle Daten
n.v.
123.40
123.45.6
123.50
987.50
987.6.40
123.456.789.0
$ perl -lne'print if /\d (?<! [.]50 ) \z/amsx' < daten
123.40
123.45.6
987.6.40
123.456.789.0