You're right. I didn't generate the result you wanted because I couldn't quite fathom your routine, so I fell back to trying to read your specification, and came up with what I did.

Honest mistake. Better specification always helps.

-- Randal L. Schwartz, Perl hacker