Create string_search.pl

Using perl pattern matching, and replacement.