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