(@teile) = split(/_/,$zeile,2); print $teile[0]; # erster Eintrag im Array enthält erste abgeteilte Zeichenkette