use strict; our $x = qr/... (??{ $x }) .../