@daten = split(/\s/,$_);
print $daten[0];