perl -e 'while(<>) {print (split)[1]}' filename