use Text::CSV_XS;

my $csv = Text::CSV_XS->new(
  { sep_char => $sTrennzeichen, quote_char => $sQuoteZeichen }
);
my $status = $csv->parse($sZeile);
my @spalten = $csv->fields();
print scalar(@spalten), " Spalten gefunden\n";