Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...
doSep();

print qq{  After: $string\n};
  2. or download this
     Before: <x1>[x2]{x3}(x4)
----------------------------------------
...
Match 6: left }, right (
----------------------------------------
  After: <x1>+[x2]+{x3}+(x4)
  3. or download this
    use strict;
use warnings;
...
doSep();

print qq{  After: $string\n};
  4. or download this
     Before: <x1>[x2]{x3}(x4)
----------------------------------------
...
Match 3: left }, right (
----------------------------------------
  After: <x1>+[x2]+{x3}+(x4)