I don't downvote nodes very often, but this is a clear example of a Complete Waste Of Time. You've posted some Perl code, then asked us whether it does a specific task.

That's not what I understand to be the purpose of this site. It's a community where people help people with Perl questions and problems. A poster is supposed to arrive with a piece of broken code, or code that they don't understand, and get assistance. They are expected to have tried a bunch of things.

You haven't done this .. so please, go away and try a few things, then come back to us and present your problem, what you've tried, what you hoped the result to be, and why you think it isn't working.