note Kenosis <p>Here's the line, explained a bit:</p> <c> my $regex = join '|', map "\Q$_\E?", @filelist; ^ ^ ^ ^^ | | | || | | | |+ - Last character in file name optional, i.e., the "l" in html | | | + - End quote metacharacters | | + - The default scalar aliased to each @filelist element | + - Begin quote metacharacters (e.g., the period) + - Join each element with alternation ("or") character </c> <p>As shown, this results in the following:</p> <c> 1234567_3a_20101000\.html?|99877_b_20111111\.html?|99877_c_20111111\.html? ... </c> <p>This line builds a regex using the file names in <c>@filelist</c>. When passed to <c>File::Find::Rule</c> as the <c>-name</c> rule, only those files names which match the regex will be returned by <c>File::Find::Rule</c>, if any.</p> <p>If you want <c>File::Find::Rule</c> to look for a particular pattern, change the regex here:</p> <c> ->name(qr/^(?:$regex)$/) ^^^^^^^^^^^^ </c> <p>However, if you want to process the files returned by <c>File::Find::Rule</c>, you can do something like this:</p> <c> my @matchingFileNames = grep /pattern/, @found_html; </c> <p>where "pattern" represents the regex that would 'filter' the elements of <c>@found_html</c>.</p> 996672 996873