Select Code to Download

User Input: She sells Seashells by the seashore.
Search Pattern: sea
...

But what I want it to do is keep the capitalization.
Final Output: She sells Bayshells by the bayshore.

main();

...

        $input =~ s/$pattern/$replacement/ig;
}