I'm just coming back from having been away from Perl for awhile, and this was a very challenging problem that allowed me to learn some useful stuff -- so thank you very much for posting the question.

Thank you for writing out your code. I too learned useful stuff from studying your code. :)