open my $fh, '<', $datei;
while ( my $line = <$fh> ) {
    # mach was mit der Zeile
}