To split on whitespace you can use (*grin*) split.

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

Or, you could grab it with a regex.

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