my $count = 0;
my $satz = '';
while (defined(my $zeile = <FILE>)) {
    $count += ($zeile =~ m~"~); # " zählen
    $satz .= $zeile;
    if ($count % 2 == 0) {
        verarbeite_datensatz($satz);
        $satz = '';
        $count = 0;
    }
}

#!/usr/bin/perl

use strict;
use warnings;
use DBI;

my $file = './test.csv';
my $dbh  = DBI->connect("DBI:CSV:f_dir=.;csv_sep_char=\\;") or die $DBI::errstr;
$dbh->{csv_tables}->{'info'} = {file => $file};

my $sth = $dbh->prepare(q~SELECT * FROM info~);
$sth->execute();

while(my @row = $sth->fetchrow_array()){
    @row = grep{defined $_ }@row;
    print join("--",@row),"\n";
}
$sth->finish();

"ID";"Ticket-Nr";"Status";"Stadt";
0;"test";"offen";"Musterstadt";
1;"067284-01";"arbeit erledigt Test";"Kiel";
2;"067285-02";"arbeit offen 
Test";"Bonn";
3;"067289-03";"arbeit offen Test";"Bonn";

C:\>csv.pl
0--test--offen--Musterstadt--
1--067284-01--arbeit erledigt Test--Kiel--
2--067285-02--arbeit offen
Test--Bonn--
3--067289-03--arbeit offen Test--Bonn--

#!/usr/bin/perl

use strict;
use warnings;
use DBI;

my $file = 'test.csv';
my $dbh  = DBI->connect('DBI:CSV:') or die $DBI::errstr;
$dbh->{csv_tables}->{'info'} = {
    sep_char => ';',
    eol => "\n",
    file => $file,
};

my $sth = $dbh->prepare('SELECT * FROM info') or die $dbh->errstr;
$sth->execute() or die $sth->errstr;

while(my @row = $sth->fetchrow_array()){
    @row = grep{defined $_ }@row;
    print '<<', join("--",@row),">>\n";
}
$sth->finish();

"ID";"Ticket-Nr";"Status";"Stadt"
0;"test";"offen";"Musterstadt"
1;"067284-01";"arbeit erledigt Test";"Kiel"
2;"067285-02";"arbeit offen
Test";"Bonn"
3;"067289-03";"arbeit offen Test";"Bonn"

    $opts{'eol'} = $meta->{'eol'} || $dbh->{'csv_eol'} || "\015\012";