Re^2: Match a string only once in a file

It tidies up nicely and does less searching if you modify the foreach loop:

   foreach $searchstring (grep {!exists $guard{$_}} @array)
     {
     if (m/$searchstring/i)
       {
          push @stringsfound, $searchstring;
          $guard{$searchstring} = undef;
       }
      }
[download]

Caution: Contents may have been coded under pressure.

Comment on Re^2: Match a string only once in a file Download Code