#!/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,'{}');