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