$ perl -lane 'print $F[2]' pm_1219033_test_data.txt
2
c
[]
$ perl -E 'say +(split)[2] while <>' pm_1219033_test_data.txt
2
c
[]
$ perl -lane 'print "@F[0..2]"' pm_1219033_test_data.txt
0 1 2
a b c
() {} []
$ perl -E 'say "@{[(split)[0..2]]}" while <>' pm_1219033_test_data.txt
0 1 2
a b c
() {} []
$