That is not extreme clarity, that is extreme obfusication! Too much code to illustrate a simple problem.

A lot of the power in Perl involves regexen, learn to use them! Have a look at perlretut and perlre. Search for regex - it's a topic that comes up often. Play with regexen and ask questions about them. If you are using Perl you are using regexen or you are not doing it Right^™.

Go back to my sample and pick it appart until you understand it, or ask specific questions - after reading the documentation linked above.