perl -lane 'print $F[0] if @F' file