$ perl -wle 'print shift =~ /^(\w+)\b/' "That's my sentence."
That
[download]

As you can see, \w matches a word character, and \b marks the end of the first word (since we're matching the beginning aka ^ of the string).

More information at perlre.

-- Frank