das defined() ist notwendig, weil theoretisch eine zeile (die letzte) nur 0 und kein
newline enthalten kann.
andererseits macht perl bei while (my $line = <$fh>) automatisch ein
defined drumherum. zu sehen mit perl -MO=Deparse ...