Help for this page

Select Code to Download


  1. or download this
    use Data::Dump qw( pp );
my $str = <<STR;
...
          Eily => qr/ " (?: [^"\\] | \\. )* " /x);

$str =~ /$re{$_}/ and say "$_ found $&" or say "$_ found nothing" for 
+keys %re;
  2. or download this
     " .. \" ..
Eily found nothing
LanX found " .. \"