use constant FOO => 'bar';
my $x = FOO;
$x = qr/$x/;

"somehting" =~ $x

##</code><code>##

our $FOO = 'bar';
my $x = qr/$FOO/;

"something" =~ $x;