but that's just a guess.use Regexp::Common qw /balanced/; my( @ek ) = ( "eka toka kolo", "eka {toka soka} kolo", "{eka seka leka seka} {toka soka {roka loka moka} doka}{{kolo nolo} {{ +solo molo} tolo} holo rolo}" ); for my $str ( @ek ){ print "$_\n" for $str =~ /$RE{balanced}{-parens=>'{}'}/g; } __END__ {toka soka} {eka seka leka seka} {toka soka {roka loka moka} doka} {{kolo nolo} {{solo molo} tolo} holo rolo}
In reply to Re: Parse TCL list?
by PodMaster
in thread Parse TCL list?
by JykkeDaMan
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |