Depending on whether regex matching is appropriate for what you are trying to do, you might want to check out my tutorial Building Regex Alternations Dynamically.

use warnings;
use strict;
use Data::Dump qw/pp/;

my @needles = ('adam west', 'daric dalon','tom helic','todd nick',
    'riley remer');
my @haystack = ('adam west 12', 'daric dalon mr.','tom helic (fads)',
    'todd nick (456)','riley remer','john steve','dim madz 12');

my ($needle_regex) = map { qr/$_/i } join '|', map {quotemeta}
    sort { length $b <=> length $a or $a cmp $b } @needles;

for my $str (@haystack) {
    if ( my ($match) = $str=~/($needle_regex)/ ) {
        print pp($str)," matches on ",pp($match),"\n"
    }
    else {
        print pp($str)," doesn't match\n"
    }
}

__END__

"adam west 12" matches on "adam west"
"daric dalon mr." matches on "daric dalon"
"tom helic (fads)" matches on "tom helic"
"todd nick (456)" matches on "todd nick"
"riley remer" matches on "riley remer"
"john steve" doesn't match
"dim madz 12" doesn't match

[download]

In reply to Re: Matching arrays with different number of elements and element size by haukex
in thread Matching arrays with different number of elements and element size by Ksonar

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.