I for one would agree you are right on both counts, but to paraphrase Shakespeare, 'Does a problem by any other name solve more sweetly?'

Update: To clarify what I mean: the OP knows the problem and its solution but is looking for the fastest way to achieve it with perl.