Inline::Awk gives you all the power (?!) of awk from within a Perl program:

    perl -le 'use Inline Awk=>q({print $1}); awk()' file
[download]

I agree with you that the output of a2p isn't pretty and it is probably not the best way for an awk programmer to learn Perl.

--
John.