my @werte=$zeile=~/(\d+)\t([\d.]*)\t([\d.]*)\t([\d.]*)\t([\d.]*)\t([\d.]*)\t(\d*)\t([\d.]*)\t([\d.]*)/;