perl -ple '($_) = /^\S+/g' filename
perl -ple '$_ = (/^\S+/g)[0]' filename