{
    local $/ = "\012";
    open my $fh, "<", "file.csv" or die $!;
    while (my $line = <$fh>) {
        chomp $line; # linefeed entfernen
        ...
    }
}