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