Help for this page

Select Code to Download


  1. or download this
    /(....)...(...)...((??{foo()}))....(...)/
 ^        ^       ^                ^
 1        2       3                4
  2. or download this
    use Modern::Perl;

...
my @caps = $str =~ /(a)b(c)d((??{'(.)' x 5}))e(f)/;

say join(', ', @caps);
  3. or download this
    18:33 >perl 504_SoPW.pl
a, c, $$$$$, f

18:38 >