Help for this page

Select Code to Download

Select or download this

my $rxBetween = qr/
    (?<= []>})] )
    (?=  [[<{(] )
    (?{ print "'$`'$&'$''" })??
/x;

Select or download this

C:\test>junk6 2>junk6.trace
Before: (x1)[x2]{x3}(x4)
...
'(x1)[x2]{x3}''(x4)'
----------------------------------------
After: (x1)+[x2]+{x3}+(x4)