Select Code to Download

xcommand|perl -wne '/(\S+)/ and print "$1 "'
xcommand|perl -we 'print join " ", map{/(\S+)/; $1} <>'
xcommand|perl -we 'print join " ", map{(split" ", $_)[0]}<>'