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

"something" =~ $x;