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