my $regex =
 qr{
     (                       # start of capture group 1
         ...
                 (?1)        # recurse to capture group 1
         ...
     )                       # end of capture group 1
 }x;