fork download 
  1. my $str = "abc {{xyz} abc} {xyz} {abc} {{xyz}} abc";
  2.  
  3. while ($str =~ /(\{(?:(?1)|[^{}]*+)++\})|[^{}\s]++/g) {
  4.     print "$&\n"
  5. }
Success #stdin #stdout 0s 3608KB
comments (?)
stdin 
Standard input is empty
stdout 
abc
{{xyz} abc}
{xyz}
{abc}
{{xyz}}
abc
https://ideone.com/odeI47
language:
Perl (perl 5.28.1)
created:
11 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!