Help for this page

Select Code to Download


  1. or download this
    $  perl -E 'my $str1 = qq(one two three); my $str2 = qq(two); if ($str
+2 =~ m/$str1/) { say "foo";}'


$  perl -E 'my $str1 = qq(one two three); my $str2 = qq(two); if ($str
+1 =~ m/$str2/) { say "foo";}'
foo
  2. or download this
    $ 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 = qq(|L|); if ($str1 =~ m/\
+Q$str2/) { say "foo";}'
foo