Select Code to Download

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

c:\@Work\Perl>perl -wMstrict -le
"my $str1 = qq(|L|D|);
...
 if ($str2 =~ $str1) { print 'foo'; }
"
foo