my $test="Das ist eine Test";
my ($first)=split(/\s/,$test,2);
print "$first\n"