perl -e'@x=<>; print $x[3]'