Perl one-liner to print columns

Hi Perlers,

I typically will type the following to collect a specific column of
data from some command's output:

# some_command | awk '{print $4}'


I wanted to start using perl one-liners more often, so I thought I'd
try the column thing first. This is what I came up with:

# some_command | perl -pe '$_ = (split)[3] . "\n";'


That feels/seems rather awkward. Is there an easier, "cleaner" way of
doing this?

--Errin
.