my @zeilenteile = split(/,/, substr($zeile, 2, -1));