@spalten = split (/\t/,$zeile);