Quoteandererseits macht perl bei while (my $line = <$fh>) automatisch ein defined drumherum. zu sehen mit perl -MO=Deparse ...