$  perl -E 'my $str1 = qq(one two three); my $str2 = qq(two); if ($str2 =~ m/$str1/) { say "foo";}'


$  perl -E 'my $str1 = qq(one two three); my $str2 = qq(two); if ($str1 =~ m/$str2/) { say "foo";}'
foo

##</code><code>##

$ perl -E 'my $str1 = qr(\|L\|D\|);  my $str2 = qq(\|L\|); if ($str2 =~ m/$str1/) { say "foo";}'

$ perl -E 'my $str1 = qq(\|L\|D\|);  my $str2 = qr(\|L\|); if ($str1 =~ m/$str2/) { say "foo";}'
foo

$ perl -E 'my $str1 = qq(|L|D|);  my $str2 = qq(|L|); if ($str1 =~ m/\Q$str2/) { say "foo";}'
foo