OK, in that case, we can kinda swap logic in the if-statement. 
my @matches;
foreach $reg (@regex) {
    
    my $i = 0;
    while ($i <= $#array) {
        if ($array[$i] =~ /$x/) {
            # successful, so this was a match! put it somewhere safe
            # also remove it from @array, we don't need to check it ag
+ain
            push @matches, $array[$i];
            splice(@array, $i, 1);
        } else {
            # this item didn't pass so keep it and try again next rege
+x
            $i++;
        }
    }

}

[download]
Take successful matches, put them somewhere, and remove them since we don't need to ever check them again. In this scenario, you would want to put the regex which accepts the highest number of items first in @regex, so that more is removed from @array earlier.

The replies from other monks also are good advice -- combining into one regex is a great idea as well.

blokhead

In reply to Re: Re: Re: Efficiency: Foreach loop and multiple regexs by blokhead
in thread Efficiency: Foreach loop and multiple regexs by neilwatson

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.