http://www.perlmonks.org?node_id=898383


in reply to Perl:how to find multiple strings

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