use vars qw($x_re);

$x = qr/... (??{ $x }) .../

##</code><code>##

use strict;

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

##</code><code>##

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