This is the third time you've asked your question. You've gotten the answer, but you seem not to be understanding it. Might I suggest you post the code from both scripts so we can see what you're trying to do in context?
You seem to think you can just call awk from your Perl script, and that isn't going to work.
This is the third time you've asked your question.
I hadn't noticed. Now I do. Which reminds me yet another one of my .sigs (it's in Italian, but I'm translating it into English now, and I don't know where it's quoted from), namely:
Repeating a foolish thing a large number of times doesn't
make it a pearl of wisdom.
It only becomes a tiresome foolish thing.
(With not particular offense to the OP intended, and a better phrasing welcome.)