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