Help for this page

Select Code to Download


  1. or download this
     
#!/usr/bin/perl
use strict;
...
        my $text =  "{{define:STOP,law:101A}{here:stop}}";
        my @line = Text::Balanced::extract_braketed($text,'{}');
  2. or download this
     
 my @line = Text::Balanced::extract_braketed($text,'{}');
  3. or download this
     my @line = extract_braketed($text,'{}');