while ($line=<DAT>) {
    &parse_csv1 ($line);
    push @record,@fields;
}

print $record[2];#nur der text buchungstage jedes "wort" jede zahl einzel mit index anzusprechen.
close(DAT);
sub parse_csv1 {
    $line = shift;
    @fields=();
    while ($line =~ m{ ( [^"';] + )  | "((?: [^"] | "") * ) "}gx) {
        if (defined $1) {
            $field = $1;
        } else {
            ($field = $2) =~ s/""/"/g;#???????????
        }
        push @fields, $field;
    }
    print $fields[1]; # Text:Buchungstage und alle Datumangaben
    return (@fields);
}