$  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