[Israel.pm] awk equivalent

[Yossi.Itzkovich at ecitele.com]

Hi,

What is the Perl equivalent of:

1. awk '{print $3}'  filename
and
2. awk -Fc '{print $3}'  filename   ( "c" is single delimiter character)

I know how to get it done in Perl, but my question is about "equivalent"
code.

Yossi