$ perl -e'use strict; our $x = $x'
$ perl -e'use strict; our $x = qr/(??{ $x })/;'
$ perl -e'use strict; my $x = qr/(??{ $x })/;'