Help for this page
use vars qw($x_re); $x = qr/... (??{ $x }) .../
use strict; our $x = qr/... (??{ $x }) .../
our $x = qr/... (??{ our $x }) .../