use strict; use warnings; my $var_a = ''; my $var_b = 'abc'; my $var_c = ''; if ( $var_a =~ /abcdefgh/ || $var_b =~ /abcdefgh/ || $var_c =~ /abcdefgh/ ) { print("orig: true\n"); } else { print("orig: false\n"); } if ( q{abcdefgh} =~ /(?:$var_a|$var_b|$var_c)/ ) { print("johngg: true\n"); } else { print("johngg: false\n"); }