perl -lane'print $F[0]' FILE