my $str = 'hello world';

$str =~ /^(\S+)\s/;

print $1;