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