perl -MEnglish -a -n -e 'print $F[0],"\n";' *.tab