I would like to eliminate the awk step, and use perl instead.

Why? I mean, if it's just for learning purposes, fine. But you have a solution that ain't broke...