perl -e 'my $teststr="das ist ein test"; my $t = $teststr =~ /^(\w*)\s/ ; print "$t\n";';