use warnings;
use strict;

local $\ = "\n";    # -l
while (<>) {        # -n
    chomp;          # -l
    my @F = split;  # -a
    print $F[2];    # -e
}

##</code><code>##

$ cat s.pl 
#!/usr/bin/perl -s
use warnings;
use strict;

our $x;
print "<$x>\n";

$ ./s.pl -x=foo
<foo>