my @wort = split / /, $string;
say $wort[0];