perl -le 'print((split " ", "best ever")[0])'

##</code><code>##

perl -le '"best ever" =~ /(\w+)/; print $1'