in reply to Case-preserving substitutions

Some suggestions are in the FAQ:
How do I substitute case insensitively on the LHS while preserving case on the RHS

Though I really do like IO's answer above.....

-Blake

In Section Seekers of Perl Wisdom