Yes,
if ( $var_a =~ /^abcde$/ && $var_b =~ /^abcde$/ && ....
is not equivalent to
if (q{abcde} =~ /^(?=$var_a$)(?=$var_b$)(?=$var_c$)/)
but it is equivalent to
if (q{abcde} =~ /^(?=\Q$var_a\E$)(?=\Q$var_b\E$)(?=\Q$var_c\E$)/)
Of course, that only works because abcde meets the following conditions:

In other words, your "optimization", aside from being hard to read and probably being slower, has very limited usage.

It would be better to use: 

my $match = 1;
foreach ($var_a, $var_b, $var_c) {
   next if /abcdefgh/;
   $match = 0;
   last;
}

if ($match) {
   ...
}

[download]

or 

if ((grep /abcdefgh/, $var_a, $var_b, $var_c) == 3) {
   ...
}

[download]

or 

use List::MoreUtils qw( all );

if (all { /abcdefgh/ } $var_a, $var_b, $var_c) {
   ...
}

[download]

The grep solution is easier to read than the foreach solution, but it has the disadvantage of always executing the regexp for every item in the list. The foreach and the all solutions execute the regexp as few times as possible

(Pardon the lateness of my reply; I was on vacation.)

In reply to Re^4: howto make a very long IF statment shorter by ikegami
in thread howto make a very long IF statment shorter by jeanluca

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.