Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl

...
  local $" = '+';
  /$pattern(?{print "@{^CAPTURE} = ", sum(@{^CAPTURE}), "\n"})(*FAIL)/
+;
  }
  2. or download this
    1 = 1
2 = 2
...
1+3+4+5 = 13
2+3+4+5 = 14
1+2+3+4+5 = 15