$re0 = qr/
          (??{ $re1 })*
       /x;