If your merely want to search for string literals inside a line then the index function is fast, does not interprete metacharacters and will do just fine:

   next unless index($Array[$Counter],$VarString) >= 0;
[download]