in reply to case insensitive replace, but maintains capitalization

You want cat to become Cat, and you want dog to become Dog? ucfirst!

In Section Seekers of Perl Wisdom