in reply to Perl:how to find multiple strings

First off, please see Writeup Formatting Tips and surround your code in c tags.

In Section Seekers of Perl Wisdom