Select Code to Download

# Define base variable detector: any (possibly-nested) angle-bracketed
+ string.
# Patterns to extract <variables> or >variables< from a string.
...
                               # another angle-bracketed item ...
                                                 # if there are any ..
+.
                                                   # and a close angle
+-bracket

$templaty = qr/
                \[%                # open delim
...
                 %\]               # close delim
           /x;
@vars = ($string =~ $templaty);