$ cat pm_1219033_test_data.txt
0 1 2 3
a b c d
() {} [] <>

##</code><code>##

$ cat pm_1219033_test_shebang.pl
#!/usr/bin/perl -lan

use strict;
use warnings;

print $F[2];

##</code><code>##

$ ./pm_1219033_test_shebang.pl pm_1219033_test_data.txt
2
c
[]

##</code><code>##

$ cat ./pm_1219033_test_script.pl
print "hello\n";
$ perl -e ./pm_1219033_test_script.pl
syntax error at -e line 1, near "."
Search pattern not terminated at -e line 1.
$ PATH=$PATH:.
$ perl -e pm_1219033_test_script.pl
$ perl pm_1219033_test_script.pl
hello
$ perl -e 'print "hello\n";'
hello
$ 

##</code><code>##

$ 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
() {} []
$