Select Code to Download

use strict;
use warnings;
...

    print qq{\n};
}

Comparing OR methods with:-
     $w is -><-
...
     $z is ->abcdefghij<-
  orig: true
johngg: true

if (q{abcde} =~ /^(?=$var_a$)(?=$var_b$)(?=$var_c$)/)