in reply to awk...ward

You could use the utility described in this blog entry by Dominus.

In Section Seekers of Perl Wisdom