my $test="Das ist eine Test";
my $first=substr($test,0,index($test,' ')-1);
print "$first\n"