while (my $line = <$datei>) {
   tu was mit $line;
}