my $var = "my dog spot";
my $expr = qr|(my dog) spot|;
my $sub = qq|$1 spooge|;
$var =~ s/$expr/qr|$sub|/e;

print $var;
#prints (?-xism: spooge)