Help for this page

Select Code to Download


  1. or download this
    my $re = $left ? qr/ab(..)ef/ : qr/gh(..)jk/;

/$re/ or die("Bad data");
print "Caught $1\n"
  2. or download this
    my $re;
if    (...) { $re = qr/.../ }
...

/$re/ or die("Bad data");
print "Caught $1\n"
  3. or download this
    my %re_lookup = (
   ... => qr/.../,
...

/$re_lookup{...}/ or die("Bad data");
print "Caught $1\n"