use constant foo => 'bar';
my $x = qr/ ${\&foo} /xo;
"something" =~ $x;