open my $fileh, '<', 'meinroman.txt' or die $!; {    local $/ = "";    while (my $absatz = <$fileh>) {        # ... mach was mit dem Absatz    } } close $fileh;