perl -MO=Deparse,-p -anle "print $F[3];" tmp.txt