Using Perl as the language.

What does the following do? if (/(.)\1/) {#something cool;]

Write a pattern match to find Dean in a sentence and print that he was found.

Write a replacement string to find Dean in a sentence and replace him with Sam.

Why would you use the following: if (/yes/i) {#something cool;}