perl -aF: -ple 'print $F[0]'