Select Code to Download

$re = qr /begin                # Start with 'begin',
          (?:                  # Followed by
...
            |(??{ $re })       #    Or a balanced begin/end block
          )*                   # zero or more times
          end/x;               # And an 'end'.