Select Code to Download

 
#!/usr/bin/perl
use strict;
...
        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,'{}');