#!/usr/bin/perl
use strict;
use warnings;
use Text::Balanced qw(extract_bracketed);
my $text = "{{define:STOP,law:101A}{here:stop}}";
my @line = Text::Balanced::extract_braketed($text,'{}');
####
my @line = Text::Balanced::extract_braketed($text,'{}');
##
##
my @line = extract_braketed($text,'{}');