note
betterworld
<blockquote><em><c>$final = 0 if ( $r );</c></em></blockquote>
<p>You need to change <c>$r</c> to <c>$something =~ $r;
</c> Using a regex variable as an expression by itself will not do any matching.<p>
<p>It might be more efficient to drop the loop and build a combined expression like
<code>
$something !~ /$r1|$r2|$r3|$r4|.../;
</code> Maybe Regexp::Optimizer can make that long expression even faster.</p>
1089040
1089040