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