my $test="Das ist eine Test";
my ($first)=$test=~/^(.+?)\s/;
print "$first\n"