my $x = qr/foo/;
my $y = qr/${x}bar/;    # (?^:(?^:foo)bar)
my $z = qr/ $x bar /x;  # (?^x: (?^:foo) bar )