perl -i -e 'while(<>){print $_[3];}' file.txt