If all your Perl program is doing is calling an awk script, I would suggest you use a2p and convert work_5messages.awk to Perl. This may require some testing to make sure a2p did the right thing, however in the long run, it will probably be easier than trying to maintain two programs: the Perl wrapper and the awk script.