use vars qw($x_re);

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