in reply to String manipulation

Homework?

In Section Seekers of Perl Wisdom