perl -MO=Deparse -lane "print $F[2]"