# Matches strings that include "ab" or "cd"
/ab|cd/

# Matches strings that include "abd" or "acd".
/a(?:b|c)d/

##</code><code>##

local $_ = 'foo bar bar baz';
my $term = 'bar';

my $num_matches = () = /(?:\W|^)\Q$term\E(?:\W|\z)/g;
print("$num_matches\n");
# 1: foo[ bar ]bar baz

my $num_matches = () = /(?:\W|^)\Q$term\E(?:(?=\W)|\z)/g;
print("$num_matches\n");
# 2: foo[ bar][ bar] baz