$ perl rec_regex.pl
Use of uninitialized value in substitution iterator at perm.pl line 17, <DATA> line 1.
<7> { ... } </7>
<7> { { } } </7>
{ <7> { { } } </7> }
{ <3> { } </3> { <7> { { } } </7> } }
<7> { ... } </7>